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v04-001 NPK3066 N. Kronenberg 7-Sep-1984 
f the port microcode rev check fails, clear the 
flag, INISPORT_REV to indicate that if a bugcheck 
s taken as a result of crashing this port, it should 
pe che email bugcheck, rather than the usual CIPORT 
ugcheck. 


v03-39 NPK3063 N. Eroneshere qonAuge 1904 
Fix SET CIRCUIT to operate at high priority. Fixes 
the Lost connect request message problem. 

Add check to REFRESH_SB to return conflicting SCS 
node name/ID if the SB being refreshed is the local 
SB and the incarnation number being refreshed is 
different from the incarnation currently there. 


NPK 3060 N. Kronenberg 1-Aug-1984 
Fix CNFSLBREC to attribute the loopback dg to the 
correct path in the case where PANUMPORT .LE. 
PAMAXPORT. 
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Fix check for own port number which was erroneously 
concluding we had an ID pkt from a port other than 
self and could therefore disable loopback datagrams. 


NPK3057 N. Rresenbers 23-Jul-1984 
On port ucode rev level check failure, zero port's 
reinit retry remaining count to force port to 

stay offline. 


NPK3055 N. Kronenber 14-Jul-1984 
Add tally to CNFSIDREC, NEW_PATH, to track number 

of ports known and if that number equals, or exceeds 
the number of free dg buffers queued to the port 

for receiving IDREC pkts, then queue 2 more dg buffers 
to the port, one for IDREC and one for HSC error log 
datagrams. (This will be somewhat excessive if the 
number of ports polled per poll interval is fewer 


than 16.) 

Modify CNFSREMOVE_PB to decrement PDT$W_STDGUSED for 
perks that disappear (but the free dg's queued for 
DRECs and HSC error log dgs concerning that port 

are left queued for future use.) 

Add the concept of legal port ucode rev's that require 
é et message and error log entry, but are still 
supported. 

Change behavior of illegal port ucode rev to set 

the port offline permanently. 

Change CNFSCALC_POLLSW to use number of free dgs 
currently queued for IDREC's rather than SCSS$GW_PAPPDDG, 
then number sysgened. 


NPK3054 N. Kronenberg 24-Jun-1984 
Add check for ci780/ci750 minimum microcode rev Level. 
Do this check only on own port when ID packet is 
recotved and we are getting ready to open a vc to 

own port. 


NPK3052 N. Kronenberg : 19-Apr-1984 
Correct computation of poll sweep time: add PASTIMOUT 
and account for Limit in number of free datagram buffers 
set aside for concurrent handshakes. 


wHM0001 Bill Matthews 14-Apr-1984 
Remove reference to SCS$GB_NODENAMEH. 
NPK3048 nenberg 4-Apr-1984 


N. Kro 
Overhaul CNFSSTOP_VCS to scan the path blocks for 
circuits to send shutdowns over. This allows us 
to check the PPD protocol level of target systems 
and to send shutdowns onty to ports with protocol 
level 1 or above. With that protocol level PPD 
implementations are required to tolerate PPD types 
hey don't act upon. 
Modify BREAK_HOST, which is executed upon receipt 
of a host shutdown do. to save SS$_NOSUCHNODE in 
PBSW_VCFAIL_RSN as the aux status fo report to SYSAPs. 
Modify PB cfeation to initialize PS$W_VCFAIL_RSN to 
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0, i.e., no hose shutdown in progress. 
Modify $8 creation to save PPD protocol Level in 
formative PB. 


VO3-31 NPK3047 N. Kronenberg 15-Mar-1984 
Add new routine CNFSSTOP_VCS to send host shutdown dgs 
to all ports to which we have vcs open or are in 
the process of opening circuits. 
Modify Logic in NTER PB which excludes systems 
with unique system ID*s but the same node names. 
Enforce the exclusion except for V3.x systems which | 
We all have the same node name. 
Fix EDIV in CNFSCALC_POLLSW. 


VO3-30 NPK3046 N. Kronenberg 88-Mar-1984 
On receipt of an error log datagram, call new routine 
REC_ERROR_DG which returns the datagram to the free 
queve and decrements the PA device error count. 

dd to CNFSTIMER calculation of the number of 

seconds to poll eyery ve at least once and put 

the result in PDTSL_POLL SWEEP. 

Fix local port name in PB to be PAcO, with the 0 
in ASCII instead of binary. 


v0O3-29 TMKO002 Todd M. Katz 14-Feb-1984 
When ENTER_PB discovers that there is a conflict between a 
known system in the local system-wide configuration database 
and the information provided by a remote system to which 
it is attempting to establish a virtual circuit, the routine 
terminates with an error status wadreat ing that such a virtual 
circuit can not be allowed to be established. Add support for 
the error logging of such events. 


ooo 
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ss 


| 

| 
This error Logging is done only for the first time ENTER_PB 
discovers that it is unable to talk to a remote system. This is 
accomplished through the use of the PDT bit mask, PDT$B_PLOGMAP. 
Whenever ENTER_PB determines that the information provided by a 
remote system Tonflicts with a known systes it checks the bit | 
within this mask which corresponds to the remote port number. 
If the bit is set this means that this particular conflict has 
enceeey been logged; however, if the bit is clear this means | 
that this particular conflict has not yet been Logged. so the 
bit is set and the conflict between the remote and known systems 
is logged. The bit corresponding to the remote pers number is 
oluay$ un-conditionally cleared whenever ENTER_PB finds no 
conflict and moves the formative path block info the system-wide 
configuration data base before returning success. 


PRDOO71 Paul R. DeStefano 25-F eb-1984 
Clear SBSL_CSB (Link to newest Cluster System Block) 
when a system block is created. 


VO3-27 NPK3044 N. Kronenbore 06-F eb-1984 
Juggle action table event codes (EV$C...) to add 
EVSC_ELOG = 5 = PPDSC_ELOG, the new error log datagram. 
Add error log datagram handling instructions to the 
action table. 
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Change FMT_START_DATA to set protocol rev level to 1 
so we can receive error log datagrams. 


v03-26 TMKO001 Todd M. Katz 03-F eb-1984 
Change the use of the SYSGEN parameter PAMAXPORT. The soreing | 
of this parameter used to indicate not only whether the loca 
port(s) should poll remote ports, but also represented a 
software setable value for the maximum port number to poll. 
PAMAXPORT still retains this latter function, but the former, 
whether any petting at all should be done, has been taken over 
by the new SYSGEN parameter PANOPOLL. 


I have also fixed two bugs within CNFSTIMER: 


1. Correct how the check is made for expiration of START/STACK 
datagrams. Right now timeouts will always be signalled for 
those timer cells within formative PBs which have not 
expired while timeouts will never be signalled for those 
timer cells that within formative PBs that have expired. 

It should be the other way around. 


| 
| 
| 
2. The check made for an empty pool waiter queue is done | 

incorrectly. The way it is currently done guarentees that 

the queue will never be found to be empty. It is left 

up to the subsequent REMQUE, which oqncqusns ty must always 

be done, to discover that the queue is actually empty. | 


vO3-25 NPK3041 N. Kronenberg 30-Jan-1984 
Fix ENTER_PB to not talk to a formative system with 
different system ID, but same node name as a system 
already in the system List. 


VO3-24 NPK3040 N. srenarmerg 20-Jan-1984 
Fix bug in extraction of port number in CNFSSCSMSG_REC. 


v03-23 NPK3039 N. Kronenber 11-Jan-1984 
ogg UY the routine to transition a formative PB 

to fully open upon receipt of a CONNECT_REQ. If 
there is no formative or rus hy seen PB Thecause the 
ENTER_PB and no pool was available to close the vc 
that was opened in anticipation of a successful 
ENTER_PB), then close the vc now and return. | 
Modify ENTER_PB to close the vc if the enter fails. 


v03-022 NPK3031 N. Kronenberg 9-Aug-1983 
Change UPDATE_SWINCARN to copy PPD$Q_SWINCARN instead 
of PPDSQ_CURTIME. 


v03-021 NPK3029 N. Kronenberg 18-Jul-1983 
Enhancements for V4.0: | 
Remove temporary assembled in sysgen param for max 
port number to pe ‘ 
dd routine CNFSSCSMSG_REC to complete transition of 
formative path block to fully open state if a CONNECT_ 
REQ scs control as is received before the start handshake 
is complete or if the final ack is lost. 
Add UPDATE_SWINCARN to use the latest sw incarnation from 
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v03-020 


v03-019 


v03-018 


v03-017 


v03-016 


v03-015 


v03-014 


v03-013 


v03-012 


a oF epee rather than the one received with the 
Clean up logat symbols in ENTER_PB. 

Drop PBSL 38 n favor of PBS$L_SBLINK. 

Change CNFSIDREC to reflect slightly reordered PB. 
Prevent systems from being configured that have the 
same system id and different node names or the same 
node name and different id's. 


KTA3046 Kerbey T. Altmann 30-Mar-1983 
Redo for SCS/PPD split. 
NPK3022 N. Kronenber 983 


28-F eb-198 
Get eyeeen software version Treo SYS$GQ_VERSION instead 
of SYSSK_VERSION for the start handshake. 


NPK3020 N. Kronenberg 28-F eb-1983 
Fix word arithmetic in action dispatcher that computes 
next state/action to be longwd arithmetic. 


DWT0068 David W. Thiel 20-Jan-1983 
—_ cont ue SCSSNEW_SB when a system block is created 
reused. 


NPK3015 N. Kponsobere 28-Dec-1982 

Fix bugs in LB_ENABLE which turns loopback dgs back on 
when all remote vc's gore - 

bit @reebte of lb dg in CNFSIDREC to be BICW instead of 


NPK3014 N. Kronenberg 16-Dec-1982 

Fix to return IDREC dg to free queue in case virtual circuit 
must be crashed due to remote being in neither the enabled 
nor maint enabled states. 

Get node name for start/stack from the sysgened node name. 


NPK3010 N. Kronenberg 11-Nov-1982 
Implement probe of n ports per poll rather than 16 
gore per poll. 

mplement poll of sysgenable maximum number of ports 
rather than all 16 (or 240). 

Add loopback dg enabled ston which is updated when 

VC's are broken or attempted rather than figuring out 

if sooppeck 99,8 should be enabled each poller interval. 
Allow SB’s with no path blocks to stay in configuration 
database and expand info held in SB. 


NPK3008 N. Kronenvers 6-0c t-1982 
Change FMT_START_DATA to include new protocol, nodename, 
current time, and shortened hardware version fields in 
start/stack dgs. 


NPK 3006 N. Kronenders 9-Sep-1982 
Fixed action table to show that SET_CIRCUIT can 
return status. Fixed action dispatcher to save event 
ode on stack and to discard received START/STACK dg 

f any, in case of action routine error status. Fixes 


5 
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free dg diseppeerence problem. Also fixed action 
dispatcher to q scard received dg on action table lookup 
failure only if there is a dg in hand. Changed 
FMT_START_DATA to put correct CPU type in dg. 


v03-011 NPK3005 N. Kronenberg Wepuga tee 
In CNFSOGREC fix search of configuration database 
to call CNFSLKP_PB_MSG instead of manually matching 
on remote station addr (which is an incomplete check) 


v03-010 ROWO114 Rol pn 0. Weber 30-JUN-1982 
Add a check to CNFSLBREC which prevents it from logging a 
successful loopback datagram received when the previous 
loopback datagram for the path in question was also 
successfully received. 
This change will be in a new driver image shipped in V3.1. 


v03-009 NPK3001 N. Kronenber 28-Jun-1982 
poet ty ENTER_PB to save SB Link poreenensty in PBSL_SBLINK. 
Fix CNFSREMOVE_PB to patch the SB Link to the next path to 


use for a connection. 


v03-008 ROW0112 Ralph 0. Weber 27-JUN-1982 
Change poogbeck datagram logging to use ELOGSCABLES instead of 
ELOGSPACKET so that the error log type field gets set 
correctly. Remove crossed loopback path logic which isn't 
supported by the hardware anyway. Fix loopback status to 
always be successful when no loopback datagram is sent because 
there is another known node. 
This change will be in a new driver image shipped in V3.1. 


v03-007 ROW0109 Ralph 0. Weber 24-JUN-1982 
Modify CNFSPOLL to send loopback datagrams if and only if no 
bits are set in the PDT port bit map, or the oniy bit set in 
the nap is the one for the port on which the loopback datagram 
would be sent 
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This change will be in a new driver image shipped in V3.1. 
v03-006 BauoTeS Ralph 0. Weber 23-JUN-1982 


error logging for loopback fetograns to CNF*~OLL and 
CNFSLBREC. Enhance this error Logs ng to aid im the detection 
of a single pair of crossed wires between a port and the star 
coupler. (N.B. the hardware currently does not support these 
crossed wires checks.) 

This change will be in a new driver image shipped in V3.1. 


v03-005 ROW0097 Ralph 0. Weber 7-JUN-1982 
Added calls to error lo ging routines in CNFSIDREC at 
UPDATE rt Sts and UPDATE_PTH_STS. Modified comments in 
CNFSPOCL 15 show that loop-back datagrams are not currently 
supported and thus their results need not be logged. Also 
added necessary reference to the SPAERDEF macro. 
This change will be in a new driver image shipped in V3.1. 


v03-004 wrk ed 0 N. Kronenberg 23-Apr-1982 
Modified ENTER_PB to discard formative PB for system 
that is already in the database but with a different 
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incarnation number. Prevents configuration of two 
different systems that have the same system ID 


V03-003 NPK2019 N. Kronenber 99-Apr-1982 
Fixed PB allocation failure ¥g. 
Made PB Lookup failure in CNFSDGREC recoverable. 


v03-002 erect’ N. Kronenberg 25-Mar-1982 
Fixed to uae ahece datagrams instead of LRP's for 
REQID and SETCK 

Fixed to not oy start handshake with remote port 

.. other than an enabled state. If IDREC arrives 
from pers to which VC is open and remote port is 
in other than an enabled state, crash the VC. 
Updated format of start/stack dg. 
Modify to allocate and attach a dg pkt to each 
PB for use during VC crash. 


V03-001 NPK2016 N. Kronenberg 18-Mar-1982 
Fixed . TITLE 
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This module of the CI port driver is responsible for polling the 
nodes in the cluster for new arrivals and for conducting the 
START handshake protocol necessary to opening port-port virtual 
circuits to new nodes. 


“The system wide configuration database consists of: 
SCS$GQ_CONF IG 
v 
System Block ----> Path Block ---=-> Path Block <--->... 


v 
System Block ---=> Path Block ---=>... 


Vv 


Both systems and paths with open port-port VC's and systems 
with no open paths are kept on the above List. 


When an IDREC datagram is received for a node which is currently 

unknown, a PB is created for it and Linked to the formative PB 
List for this port. When a START/STACK datagram is received from 

that port as part of the START handshake, a formative SB is 

pepetes and Linked to the PB. The formative datastructure looks 
ike: 


POT 


v 
Path Block ----> (System Block) 


v 
Path Block ----> (System Block) 
v 


When the START handshake is complete, a matching SB is sought in 
the eyytee gent teyres tan database. if one is found, then the 
formative SB is discarded and the formative PB Linked to the 
existing SB. If no watching SB is found, then the formative SB 
33 aoe te, the system configuration database and, with it, its 
ormative PB. 


The cont iqurat ten poller is awakened periodically for each local 
port by the timer scan module. Each time it wakes up, it allocates 
n (SCS$GB_PANPOLL) datagrams from pool and uses these datagrams 

to send REQID's to the next n ports. 
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Datagram management is as follows: Upon port initialization 

; SGNSGB_PPDDG datagrams are preallocated and Linked to the 

; datagram free queue for receipt of IDREC's. When any start 

; handshake datagram is received (including IDREC) which is turned 
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around to send the next protocol message, it is sent with 
; RETFLAG=FALSE so that the datagram is returned to the free 
ueue. A received datagram which does not result in a new 
atagram being sent is simply returned to the free queue. 
Datagrams that must be allocated from pool because there is no 
; received datagram to turn around (e.g., START/STACK retries) 
; are sent out with RETFLAG=TRUE to return them on the response 
ueue. Datagram buffers returned via the response queue are 
eallocated to pool again. 


The major routines in this module (in order of appearance) are: 


CNFSPOLL -The oh 4 pede poller which wakes up 
periodically and sends REQID's. 

CNFSIDREC -Called by the interrupt service module when 
an unsolicited (XCT_ID=0) IDREC arrives. 


If the sending port (station) currently has 
no PB in either the szstee wide database or 
in the PDT formative PB List, then a PB is 
created and START handshake initiated. Else 
the IDREC is discarded. 


CNF SDGREC “Called by the interrupt service module when 
a START, STACK, or ACK dg is received. The 
action dispatcher, ACTION_DISP is called. 


ACTION_DISP -Based on the path's current state and the 
event that just occurred, a sequence of 
action routines is called. These correspond 
to the handshake steps described in the 
SCA spec. The actions are table driven. 


Assorted action - 9; send a START dg, set a timer on the 
routines path, build a system block... 
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: Set PSECT to driver code: 


-PSECT $$$115_DRIVER,LONG 


: System definitions (LIB.MLB): 


-nocross 


SSSDEF 
SSYSAPDEF 
SUCBDEF 


> PADRIVER definitions (PALIB.MLB): 


SPAERDEF 


$4 


-00 
NFIG.MAR;2 


Channel Request Block offsets 

Device Datablock offsets 

Structure type codes 

IPL definitions 

Path Block offsets 

Port Descriptor Table offsets 

Internal Processor Fa ecto: 

System Block offse 

: stem service sel ietitens 
disposal fla 


; Unie Control pte. offsets 


Port driver error code values 
CI extension to PB 
CI extension to POT 
CI extension to UCB 
PPD Layer of message/dg header 
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-SBTTL CNFSPOLL, PERIODICALLY SEND REQID TO PORTS 


1 
4) 


CNFSPOLL is awakened periodically oy CNFSTIMER. If remote port eth is 

; enabled (SCSSGB_PANOPOLL is set to 0), it allocates as many datagram buffers 

; as there are ports to poll oy’ interval (up to the maximum legal port # 

; pooe tt tee by CS$GB_PAMXPORT or the maximum coger hardware port # specified by 
PDTSB_MAX_PORT - which is ever is the smallest), and sends a REQID to each 

eer The sent buffers are reclaimed on the response queue and returned to 
ool. 


If datagram receipt is parensty inhibited from this remote port, 
; then datagrams are first reenabled via a SETCKT command. 


If the sweep does not complete due to lack of pool, CNFSPOLL returns 
without error. 


Later receipt of the IDREC's will cause the START 
handshake to begin for the remote systems not currently known. 


DOSSCSCSOSSOOOSOSOSOO 
a 

00-0 

N 


The poller also initiates various diagnostic activities to 
meee for physical connection problems or other errors in the 
cluster: 


“Before polling begins, a senppens datagram is sent out if 
loopback dg’s are enabled. LB dg's are enabled when no 
remote port is known; otherwise, they are disabled. 

Later, successful receipt of the LB dg is recorded in routine 
CNFSLBREC. Successful rece ies of the last LB dg sent on this 
path is checked here in LB_CHECK, before sending a new LB dg. 


“REQID’s are sent to all ports even if we have already 

succeeded in a START handshake. REQID's are sent with 

explicit path select thus forcing the port to try the a 

even if it thinks it is bad. Later receipt of an IDREC on this 
path forces the port to bring it back if it was previously 
marked bad. It also lets us log the transition of a path 

from bad to good. 
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Inputs: 
RS “Addr of PDT 

4 Outputs: 
00 RO-R2 : -Destroyed 
4 other registers -Preserved 

00 - 

$0 -ENABL LSB 

00 

0 CNFSPOLL:: 

pore 8F 4 PUSHR #*M<R3,R5,R6,R7> ; Save some registers 
00000000 ' GF TSTB 6° SCS86B_PANOPOLL ; Is remote polling enabled? 
03 «13 BEQL $ ; Continue if it is 


00E7 

ss oooh 
5 2h C g% 
oan 

57 O17F C4 


50 O17F C447 


51 50 FFFFFFFE 8F 
50 
52 
50 57 05 
FFBS° 
os ww FW 


02 

0110 C4 

09 

O17F C447 «=653— (01 
24 


FFOF® 
31 50 
O17F C447 = 53 


3C 

50 390184 ce 
A 

OC AO 

OC A2 


01 
OF A2 be 
FF7E 


53 00000000' GF 
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31 oF : BRw CONF IG_EXIT ; Else exit poller 
GA F § 5$: MOVZBL PDTSB_NXT_PORT(R4),R6 ; Get starting port # to poll 
9A 0014 MOVZBL G*SCSSGB_PAMXPORT,RS §; Get maximum port # 
9a 001 : MOVZBL POT SB _MAR_PORT (R4S .RO ; Get _max port supported by CI 
D1 5 CMPL R5,R 3 SYSGENed max greater than hardware? 
15 60 BLEQ $ 3; Branch if not 
dO 3 MOVL RO,R5 ; Else hardware max prevails 
9A : es 7$: MOVZBL PDTSB_REQIDPS(R4) ,R7 ; Get value of path to select 
6 4 2? LB_CHECK: 
90 00 $9 MOVB PDT$B_PO_LBSTS-1(R4)C(R7],RO ; Get LB status byte for 
8 68 3 current path. 
C 0 34 BICL3 #*C<PDTSM_CUR_LBS>,RO,R1 i; Isolate current status in R1 
1 0 0 BNEQ 1 ; Branch if current status is good. 
9 030 71 BITB #PDTSM_PRV_LBS, RO ; Was previous status bad? 
1 BeS es BEQ" 10$ ; Branch if it was bad. 
D4 004 7 CLAL R2 ; Indicate no packet present. 
044 574 ASSUME PAERSK_ES_L1GB EQ <PAERSK_ES_LOGB + 1> 
cI 044 575 ADDL3 #<PAERSK_ES_LOGB-1>, R7, RO F Form error subtype code. 
0 0048 278 BSBW ELOGSCABCES ; Log error via general cables state 
Bnee ras 3 change logger. 
C1 0048 38 10$: ADDL3 =R1,R1,R3 ; Position current status as 
004F 580 ; _previous and save 
EO O04F é 1 BBs #POT$V_LBDG,- ; Branch if loopback dg's currently 
0051 ¢ PDTSW_CPORT_STS(R4),- ; enabled 
0054 2 SEND CB ; 
89 0055 84 BISB3 #POTSM_ CUR_LBS, R3, - _; Otherwise, loopback datagrams are 
Boee a? PDT$B_PO LBSTS-1(R4)(R7); not needed; pretend they were 
11 Bo2e f6 BRB START_REGID ; successful and go do request id's. 
Oaee 4 SEND_LB: 
30 203 590 BSBw INTSALLOC_DG1 ; Get a dg buffer for the 
61 591 ; _ loopback d 
E9 0061 236 BLBC RO,20$ :; Branch if no pool -- skip 
Bees 9 ;_ poller altogether 
90 0064 94 MOVB R3,PDTSB_PO_LBSTS-1(R4)CR7] ; Else update LB status 
Bnen 95 3; with current and set 
06A 36 3 current to pending 
BB Bee 9 PUSHR #*M<R2,R3,R4,R5> 3; Save registers 
D $¢ 98 MOVL.  PDT$L_CBDG(R4),RO ; Get addr of LB dg template 
28 0071 599 MOVC3 #<PPDSC_LB_LENGTH-PPD$B_PORT>,- 
7 600 PPD$B_PORTTRO) ,- ; Copy LB dg from tmplate 
7 601 PPD$B_PORT(R2) ; _to actual dg buffer 
BA 7 one POPR #*M<R2,R35,R4,R5> ; Restore registers 
FO 0079 6 INSV R7,#PPDSV_PS,- ; Insert current path 
07C 604 #PPD$S_PS7PPOSB_FLAGS(R2)  ; select in LB dg 
30 te 6 5 BSBW INTSINS_COMQL ; Send loopback dg on its way 
6 607 START_REQID: 
9A : $8 MOVZBL G*SCS$GB_PANPOLL ,R3 : Init count of # ports to poll this 
610 3; «cycle 
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9 1 
4 ‘i NEXT_REQID: 
24 0154 (46 «456 «CEI , 13 BBC R6,PDT$B_DQIMAP(R4) ,40$ : Oraneh so rec'v enabled on 
EF ge 3 F ei BSBW [RTEALLOC PPDDG : Else et a dg for SETCKT 
03 E $8 3 BLBS RO,30$ : Branch if got it. 
OOSE 31 a3 e18 208: BRW CONF IG_EXIT ; Else skip polling altogether 
C9 O38 621 30$: BISL3 #<PPDSM_RSPA24>!- : Else command port to 
9 ° § <PPDSC_SETCKT@16>,- ; enable dg reception 
OC A2 56 01190000 8F 99 R6,PPD$B_PORT(R2) i _from specified remote port 
14 A2 D4 OOA1 624 CLRL = PPOSw_M_UAL(R2) : SETCKT 
10 a2. 1000 § ' Ad = 625 MOVZWL #PPDSA_BQl ,PPDSW_MASK(R2) 
00 0154 (4 556 OAA 6 $ BBCC PDTSB_DGIMAP(R4),35$ ; Clear DG inhibit 
FFG i 08 627 35$: BSBW INTSINS_COMQL 3; Send it on its way 
FFA’ 08 628 40$: BSBW INTSALLOC_PPDDG ; Allocate a buffer from pool 
5? 0B6 629 BLBC RO,CONFIG_EXIT ; Branch if none available 
50 57 19 4 0B9 630 ASHL #<PPDSV_PS+24>,R7,RO ; Use current path 
50 01050000 8F C OBD 631 BISL #<PPDSM_RSPQ24>!- ; Send REQID to next port 
0C>6 6 ¢ <PPD$C_REQIDG16>,R0 3; REQID 
OC A2 5650 c9 0C4 6 BISL3 RO,R6,PPD$B PORT(R2) ; 
10 A2 C 00C9 634 CLRQ PPD$Q_XCT_IB(R2) ; Set transaction id = 0 
FF31° 30 OOCC 635 BSBW INTSINS_COMOQL ; Send it on its way 
56 606 Baer 6 § INCL 3; Step to next port 
55 56 D1 00D1 6 CMPL R6,R5 ; Past max legal port #? 
98 1A 0004 O38 GTRU § ; Branch if so 
07 5 F5 0006 639 SOBGTR R3,50$ ; Branch if more ports to poll 
O17E C6 «656 «6690 0009 640 Ove R6,PDTSB_NXT_PORT(R4) ; Else save # of next port to 
ODE 641 3; probe on next poll interval and 
16 =«=6«111 4: Gg BRB CONF IG_EXIT : return. 
FFAG = 331 He of) 50$: BRW NEXT_REQID : Go poll next port 
O17E C46 «6994 «(O0E 646 60S: CLRB PDT$B_NXT_PORT(R4) :; Zero # of next port to probe 
Boes 647 ; next poll interval 
57 D6 O00E7 968 INCL R7 : Step to next path to use 
02 57 01 doe 64 CMPL R7 ,#PPDSC_PSP1 : More than max legal? 
3 15 OOEC 650 BLEQ : Branch if not 
57 1 90 pee o3) MOVB #PPDSC_PSPO,R7 ; Else reset to path A 
O17F C4 57 90 DOF 638 708: MOVB R7,PDT$B_REQIDPS(R4) ; Put next path to use in PDT 
ore $2? CONF IG_EXIT: 
OO0E8 8F BA nee $39 POPR #*M<R3,R5,R6,R7> ; Restore registers 
05 As 628 RSB ; Return 
OFB 660 -DSABL LSB 
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4 666 -SBTTL CNFSIDREC, PROCESS UNSOLICITED IDREC 
FB 4664 ;+4 
FB «665 ; pearetpace is called from IDREC for spell with trgrenet ten 
FB 666 ; = 0. CNFSIDREC checks the port bitmap to see if t acc 
FB 67 ; ; tren 2 pach already 5 9e°ees ‘ee or with START handshake 
FB 68 ; progress. not, and if the remote port is enabled, 
4 ? H ; ormative path block is set up and a START sey initiated. 
8 671 ; If the PB does exist, then go to UPDATE_CBL_STS. UPDATE_CBL_STS 
FB ole : checks if the path is fully open. If not, fo cable or path Status 
OFB 67 : information is maintained, Yand the IDREC {s's imply discarded. If 
OFB 74 ; the path is open, and the remote port is in a state other than enabled, 
OFB 675 ; then the virtual circuit is crashed. If the remote port is enabled, 
ore o78 3; then cabling status is recorded in the path block as follows: 
OFB 078 3 current cable status = 1 (OK) if the send ro s 
OFB 679; receive path in IDREC; 
OOFB 680 ; 
444 e 1; = 0 (bad) otherwise. 
0OFB rey ; If the new current status differs from the previous, then a cable status 
Baee one 3; transition is logged. 
OFB ty, ; The arrival of the IDREC says that the receive path of the ID m 
ore ret 3; be good. Therefore, the path status in the PB is also waeted | oe " saltenst 
aero ret 3 current path status = 1 (OK). 
OOFB 691 ; If the current path status differs from the previous, then a path status 
OOFB $36 i transition is logged. 
OOFB 693; 
Bore 694 ; Inputs: 
OFB 695; 
OOFB 696 ; R2 “Addr of jonec datagram 
OOFB 697; R4 -Addr of P 
OOFB 698; 
OOFB 344 ; Outputs: 
OFB 00 ; 
OFB 44 3 RO-R2 f “Destroyed 
OrB 7 § 3 other registers -Preserved 
OFB 703 ;- 
FB 704 
8 FB 705; 
FB 7 $ 3; Assumptions about PB format: 
ee 
ore 709 ASSUME Poeu Size ee EQ _TYP 
OFB 710 ASSUME PBSB_TYPE+ EQ a 
OFB 711 ASSUME $8_SUBTY EQ PBSB_RSTATION 
FB at) ASSUME PBSB_RSTATION+6 EQ “STA 
FB 7135 ASSUME PBSW_STATE+ EQ PBS$L_RPORT_TYP 
FB 714 ASSUME PBSL_RPORT_TYP+4 EQ PBSL_RPORT_REV 
FB 715 ASSUME PBSLRPORT“REV+4 €Q PBSL-RPORT FCN 
FB £18 ASSUME PBSL_RPORT FCN+4 i_POR 
ore 717 ASSUME PBSB"RST_PORT+1 EQ PBSB_RSTATE 
FB 718 ASSUME PBSB"RSTATE+1 EQ PBSWIRETRY 
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FB 4 9 ASSUME PBSW_RETRY+2 ga PBST Og}! NAME 
FB ASSUME PBST"LPORT_NAME+4 EQ PB$B_CBL_STS 
FB if ASSUME PB$B-CBL $Tss1 EQ PBS$B_PO_STS 
FB ASSUME PB$B_P “stss EQ PB$B_P1_STS 
FB 725 ASSUME PBS$B_P aTee2 EQ PBSL_PDT 
FB f & ASSUME SL-PDT+4 EQ PBSL_SBLINK 
FB 5 ASSUME PBSL_-SBLINK+4 EQ PBSL_CDTLST 
FB 4 § ASSUME PBSL_CDTLST+ EQ PBSL_WAITOFL 
FB ASSUME PBSL_WAITQFL*#4 EQ PBSL_WAITOBL 
‘BC? 8 ASSUME PBSL_WAIT EQ PBSL_DUETIME 
FB 729 ASSUME PBSL_DUETIME+4 EQ PBSL_-SCSMSG 
FB 4 ? ASSUME PBSL_SCSMSG+4 EQ PBS$W_STS 
ore f ASSUME PBS$W-STS+ EQ PBSWIVCFAIL_RSN 
oe f $ -ENABL LSB 
OOF 4 5 CNFSIDREC:: 
51 OC A2 9A OOFB 7 $ MOVZBL PPD$B_PORT(R2),R1 3; Get sender port # 
0114 C4 3. E1 Bor re BBC R1, gf brs. PORTMAP(R4),- : Branch T t is path is 
3 curren unkno 
ooc3 31 0105 mo BRW UPDATE _CBL_STS 3; Go Update cabling status info 
B18 re NEW_PATH: 
017D C4 3 % 34 oe rt 8} -POTSB_PORT _NUACRA) : Is this 1D. from self 
3; Branc 
084c 830 He reg BSBW CHECK_PORT_REV : Else got check port rev level 
QO1 sO B43 748 5$: EXTZV #PPD$V oS TATE. = ; Get state of remote 
0 0114 749 #PPDSS" STAT ; port from ID 
ol” * ns 0115 750 PPD$B RSIATE(R2), RO 3 
5 91 0118 751 CMPB RO, #PPD$C_ENAB 3; Is remote enabled or enab maint? 
03 «13 g1i8 3g BEQL : Branch if yes 
OOA8 = = 51 b138 P37 BRW NEW_PATH “ERR ; Else dont try for start handshake 
52 oD 4 0 755 10$: PUSHL R2 : Save copy of IDREC dg addr 
51 00000060 oF D0 (01 $ £36 MOVL #PBSC_PALENGTH,R1 ; Get size of a pathbloc 
00000000'GF 16 oi 75 JSB GEXESALONONPAGED : Allocate one from oael 
06 8 E8 O12F 758 BLBS ; Branch if got pool 
36 B8EDO 01 g 759 POPL ; Else restore saved register 
09 1 : £60 BRW NEW_PATH_ERR ; and clean up before exit 
53 2 D 1 ; 166 15$: MOVL R2,R3 3: Set addr in gtendere register 
BED 138 «676 POPL ; Retreive IDREC ~ addr 
50 O8A 43 1 764 MOVAL 4 a SIZECRS), RO : get addr within PB of struct size 
80 ;; 8 146 765 MOV ae tructure size 
80 0460 BF BO 014 166 MOVW Dinsc SCS+<DYNSC _SCS _ppaes” trd) Set struct type. subtype 
51 OC A2 A O14A 76 MOVZBL PPDSB PORT(R2),R1~ ; Get ll port # 
00 0114 C4 51 E3 135 £08 BBCS R1,POTSB_ RPORTMAPCRG) 20$ ; Mark port has PB in map 
019A C4 BS 13 as 20$: INCW PDT$W_STDGUSED(R4) ; Step # das needed for IDRECs 
019A C4 «©B1 «200158 )=—S ss 7771 CMPW PDT$W-STDGUSED(R4) ,- ; Compare # dgs needed with # queued now 
0198 C4 15C¢ ak PDTSW_STDGDYN(R4) : 
11. «#«1F «O1SF 8677 BLSSU 5 3; Branch if enough for now 
gf yi 161 774 PUSHR #*M<RO,R1,R2> ; Else saye our ron sters “. 
50 2 A 0163 775 MOVZBL #2,R0 : queue 1 dg for IDRECs + 
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FE97* 3 1 77 BSBW SCSSALL_FRDGS 3; _for HSC error loggin 
4 Hs 29 188 r§ BLBC § a8 <a 3 Branch if didn't +44 Butters 
0198 (4 B6 1 og INCW  PDT$W_STDGDYN(R4) ; Show 1 more dg available for IDRECs | 
07 +#2BA Vy f , 218: POPR #*M<RO,R1,R2> ; Restore registers 
0170 ¢&4~=—s 51 %} 17 7 ¢ 228: CMPB R1,PDT$SB_PORT_NUM(R4) : ID from self? | 
5 13 0177 7 BEL «= 25$ : Branch if so 
4 179 = 784 BICW #PDTSM_LBDG,- ; Else disable LB dg's because 
0110 C4 HA f 5 PDT$wW_CPORT_STS(R4) 3 we can contact somebody else 
| 
80 OCA 9A ins 7 5 25$: MOVZBL PPDSB_PORT(R2),(RO)+ 3; Set PB parameters: remote station, 
8 B4 018 788 CLRW (RO)+ ; 
0 0 0 ia 789 MOVW #PBSC_CLOSED, (RO)+ ; state = closed, | 
80 118A D 0187 790 MOVa PPDSL_RPORT_TYP(R2),(RO)*+ ; port type, dual path bit, | 
198 791 ; and ucode revision, 
80 220A 0 0188 79 MOVL PPDSL_RPORT_FCN(R2),(RO)+ ; port function mask, | 
80 24 A C QO18F 79 MOVZWL PPDSB_RST_PORT(R2),(RO)+ ; reset port counting port), 
B19 794 ; and remote port state, 
193 795 : zero retry count, 
51 00Dc C4 «6200 «(019 796 MOVL PDTSL_UCBO(R4) ,R1 ; Trace back through 
51 28 Al =O 0198 = 797 MOVL — UCBSLDDB(R1) ,R1 ; the UCB and DDB to device | 
80 15 A1 00 019C 798 MOVL DDBST-NAME+1(R1),(RO)+ |; mame, assumed to be format ‘PAcO’ _ 
FF AO 30 90 O1A0 799 MOVB #*A/07,-1(RO) : Fix unit to be ascii 0 instead of binary | 
80 01 90 QO1A4 800 MOVB #PBSM_CUR_CBL,(RO)+ 3; Set current cable status ok -- | 
QO1A7 = 801 ; will update Later when PB is 
01A7 506 > _fully open 
80 01 90 O1A7 80 ove #PBSM_CUR_PS,(RO)+ ; Set current path status good, 
8 01 98 Q1AA 804 MOVZBW #PBSM_CUR_PS,(RO)+ 3; _both paths 
8 54 D0 O1AD 805 MOVL R4,(RO)+ 3; Fill in addr of PDT 
80 7C 0180 806 CLRQ = (RO) + : Zero SB Link and CDT List pointer 
80 7C 01B 807 CLRQ (RO)+ : Clear formative SB Link 
01B4 808 3 _and due time 
80 D4 318s 809 CLRL (RO)+ ; Clear SCS msg addr 
80 D4 0186 810 CLRL (RO) + ; Zero handshake status and VC 
ttt 811 ; _fail reason 
54 a D4 0188 aig CLRL PBSL_CLSCKT_DG(R3) : Zero addr of emer ency SETCKT dg | 
017 6 — 01 81 INSQUE (R3),@PDT$Q_FORMPB+4(R4); Link PB to formative PB List 
51 8002°B8F 3C O1C0 814 MOVZWL #EVSC_SEND START,R1 ; Set event=send a start | 
1 i¢ a2 RW ACTION_DISP : Init START handshake 
ore Hh GOT_PATH: | 
iC 18 NEW-PATH_ERR: | 
FE35° 31 ite y BRW INTSINS_DFREEQ1 ; Return dg to free queue and return 
1B ‘ UPDATE_CBL_STS: 
065% 30 01¢CB 4 BSBW CNFSLKP_PB_MSG 3; Look up path block 
F 29 E9 ice 5 BLBC RO.GOT_PATR ; Branch if only formative 
53 1 00 OD § MOVL R1,R 3; Copy PB addr to standard register 
4 EF 01D4 EXTZV #PPDSV_STATE.- ; Get remote port state 
106 3 #PPD$S_STATE,- 3; from ID 
50 254 1D PPD$B_RSTATE (R2) ,RO ; 
02 5 91 QIDA 0 CMPB RO, #PPD$C_ENAB ; Is remote enabled or maint enab? 
0 13 01DD 1 BEQL ; Branch if so 
FEIE* 30 O1DF 2 BSBW ERRSCRASHVC ; Else go crash VC 


e411 ie ? BRB 
31 D4 Q1E4 5 308: CLR 
02 1 EF 168 § EXTZv 
sad 84 DD 1E¢ PUSHL 
02 4 €D ier : CMPZV 
50 «(OF A 1F 40 
9 12 Q1F4 41 BNEQ 
06 16 g INCL 
01. 0 ED OIF 44 40$: CMPZV 
cme HE Eo 
FDFD' 0 020 i BSBW 
ae 
: NSV 
—» SF Fe 0 850 50$ INS 
28 AS 07 =851 
50 BED? 0209 S26 POPL 
BA 1 8 OC 85 BEQL 
50 28 A340 9 of 854 MOVAB 
06 99 EB 021 855 BLBS 
2 p° 0216 856 MOVL 
FDE4' 30 0219 857 BSBW 
O21C 858 
60 07 88 O21C 859 60S: BISB 
A? 611 O21F 860 BRB 
655) 861 
0221 862 DSABL 


CNFSIDREC, PROCESS UNSOLICITED IDREC 


GOT_PATH 


R1 
#PPDSV_RP,#PPDS$S_RP,- 
PPDSB_FLAGS(R2) .RO 


#PPDSV_SP,#PPDSS 
PPDSB_FLAGS(R2) JR 


R1 


#PBSV_CUR_CBL,41,- 
PBSB_CBL_STS(R3) .R1 


ELOGSCBL_X_CHG 


R1,#PBSV_CUR_C 
PB$B_CBL“STSTR 


GOT_PA 
PBS$B_P 
(RO) 7608 


R53, 

ELOGSPTH_ST_CHG 

#PBSM_CUR_PS, (RO) 
_PATH 


GOT 
LSB 


:14 
:16 


TH : 
0_STS-1(R3)CROJ,RO 
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Go return dg to free queue 


Set assumed new path om = bad 
Isolate rec'v path in R 


Save rec'v path for later 
Send path = 

receive path? 
Branch if not -- paths are crossed 
Else set new cable status o 


Previous status 
= new status? 
Branch if so 
Else, Log change in cables crossed - 
uncrossed status. 


Record new status 

as the current status 
Retreive receive path number 

Branch if internal loopback 
; Get addr of path status byte 
ranch if previous status ok 
Else copy PB addr. to required plece 
and log presence of new good path. 


Set current status good 
Clean up IDREC dg and return 


a 


<wU 
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| 
| 
4 


! é -SBTTL CNFSSCSMSG_REC, SCS MSG REC'D | 
1 3+ 
1 $9 ; Since the final ACK or STACK may be lost in the start handshake, | 
1 08 ; the arrival of an SCS CONNECT request message from the remote 
1 8 ; system should be treated as a satisfactory substitute for receiving 
1 0 ; a final ACK or STACK. CNFSSCSMSG_REC is called by PASCSCTL upon 
1 71 ; receipt of every connect request to handle the transition of a 
: 4 ; formative path block, if necessary, to the fully open state. | 
! Ss ; Inputs: | 
: % ; R2 Pao of SCS message (start of application | 
; ata 
1 78 ; RG “Addr of PDT 
0221 79 ; 
0 ' 44 3; Outputs: 
6 1 ong 3 RO,R1,R3 “Destroyed 
0221 83 ; Other registers -Preserved 
0221 884 ;- 
0221 885 
0221 886 -ENABL LSB 
0221 887 
0 ! Hts CNFSSCSMSG_REC:: 
52 oD 6 1 90 PUSHL R2 3; Save SCS msg addr 
53 0174 C4 7E 0223 91 MOVAQ PDT$Q_FORMPB(R4) ,R3 ; Get List of formative PB's 
51 52. 00B4 C4 C3 0228 5 SUBL3 PDTS$L-MSGHDRSZ(R4) ,R2,R1; Back up to start of pkt 
51 OC Al GA O 89 MOVZBL PPD$B_PORT(R1),R1 ; Get # of port that sent SCS msg 
05c9 30 8 894 SEARCA_PATHS : See if this path is formative 
26 50 «3&8 02 895 BLBS RO,TRY_TRANSIT ; Branch if got formative PB 
0114 C46 «651 «=6EO «20238 «= 896 BBS R1,PDTSB_PORTMAP(R4),- ; Branch if not formative, but is 
28 0230 897 10$ ; known (must be open) 
OSee +4 : Else path is closed. Since 
3E 99 ; we got a sequenced msg, the 
O23E 900 : _port thinks the vc is open 
$$ CS 90 23—E 901 MOVL R1,R3 3 Save port number 
FDBC' 30 g4i 90¢ BSBW —INTSALLOC_PPDDG ; Allocate PPD dg 
1F 50 =—E9 44 90 BLBC R ; Branch if no pool 
C9 0247 904 BISL3 #<PPD$M_RSPa24>!- : Format PPD dg into a SETCKT 
6 48 905 <PPDSC_SETCKTa16>,- ; ne 
OC A2 53 01190000 8F 4 44 R3,- ; to port specified in R3 
33 90 PPDS$B_PORT(R2) : 
8099 8F 3C 443 MOVZWL # M_CST>,=- : 
10 A 5490 PDSW_MASK (R2) ; 
14 A 4 26 910 CLRL PPD$W_M_VAL(R2) ; _and ask for vce state to be closed 
FDA4' 30 911 BSBW {NISIRS _COMGH : Do SETCKT at high priority 
08 11 26 818 BRB 0$ ; Go to finish up 
2 91% TRY_TRANSIT: 
51 8000'8F *f A; 218 MOVZWL #EVSC_SCSMSG,R1 : Else set event code 
025D 0 6 91 BSBW ACTION_DISP ; Take action to move PB from 
66 318 : formative to fully open 
66 «91 3 PB not in right state to 
66 920 ; transition to open or 


le «| 


PACONF iG 
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66 


66 

66 

66 

66 

52 8ED0 66 
05 69 

O26A 

026A 


wwowowowowowoooo 
SOOWONOUS wit 
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there is insufficient pool, 

or if the system has bad 

eysten name or gzstes ID, 

then formative and formative 
system block are cleaned up 

by action routines. 


; Retreive SCS msg addr 
; Return to PASCSCTL 


~~ 
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gf ee -SBTTL CNFSLBREC, VERIFY REC'D LOOPBACK DG 
6A 934 ;+ 
6A 935; cw su oeee checks the data in the received loopback datagram with 
6A 9 § ; the data stored in the template lb dg Link — to the PDT. If the 
6A 937 ; Sete agrees, then = Ban ack status for the path on which the LB 
6A 938 ; was received is updated to ego. (Transitions in the status are 
6A 939 ; checked and logged ts CNFSPOLL >) 
BSR BEF input 
; Inputs: 
026A 3t8 : 
Bsen 943 ; R2 -Addr of Loopback datagram 
6A 944 ; R4 -Addr of P 
026A 945 ; PDT$L_LBDG(R4) -Addr of Someteee LB dg 
026A 308 : 
026A 947 ; Outputs: 
026A 948 ; 
O26A 949 ; RO-R2 ; -Destroyed 
Bsen 950 ; Other registers -Preserved 
026A 951 ;- 
026A 4 
026A 95 -ENABL LSB 
026A 954 
026A 955 CNFSLBREC:: 
026A 956 
51 0184 C4 DO O26A 957 MOVL 4 She LBDG(R4),R1 ; Get addr of template 
7E 52 7D O26F 958 MOVQ R2,-(SP) 3; Save registers 
we6Cltiaa® «CGere S959 CMPC #<PPDSL LBCRC = PPDSW_ LENGTH> 
10 Al 0274 960 PPD$W_LENGTH(R1),= 3 verify rec'd data against template 
10 A2 0276 961 PPD$W_LENGTH(R2) : _including LB dg length 
52 8E 7D 8556 96 MOVQ (SP)+,R2 ; Restore registers 
50 D5 0278 %6 TSTL 3; Check rqeu ts of —_ arison 
1B 12 Q27D 964 BNEQ 10$ ; Branch if don't m 
02. 01 #+EF OQO27F 965 EXTZV #PPDSV_PS,#PPD$S _PS,- ; et n Roe select, mis for A/B 
50 OF A2 Os ee 966 prose FLAGS(R2), RO 3 
OE O17F C440 00 €E2 028 967 BBSS 48 T$ CUR LBS, ; Set loopback datagram received 
028C 968 PDT$B BO” Casts: =1(R4)CROI, 10$ ; & branch if alrea y ot one. 
02 93 O28C 969 BITB mors $A_PRV_LBS,- ; Was the previous loopback datagram 
017F C440 tt 43 970 PDTS$B "pO. UBsts-i (R4)CRO2; atte, successful? 
06 12 029 971 h if last was successful too 
B53¢ 4h ASSUME PAERSK_ES 4 186 EQ <PAERSK Es *LOBG +1> 
50 07 0 0294 97 ADDL #<PAERSK_ES_LOBG-1>,RO ; Form LB dg succesful sybtype code 
FD66" 30 O69! are BSBW ELOGSCABLES 3 Log cables state change 
FD63" 31 039A 976 108: BRW INTSDEAL_DG1 ; Deallocate LB dg and return to 
0290 977 ; interrupt service from there 
8535 978 
0290 979 -DSABL LSB 
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4 i -SBTTL CNFSDGREC, DISPATCH A START/STACK/ACK DATAGRAM 
9D 985 ;+ 
90 984 ; CNFSOGREC first checks the port bit map to see if a path 
90 985 ; block exists for the ao ag datagram. If not, the datagram 
9 9 § 3; is deallocated. Otherwise, the formative path block list and 
90 «(987 ; Systen configuration data base are searched for the path block 
9 69 3 3 with matching station address. When the pete block is found, 
8 2 44 ; the ACTION_DISP routine is called to handle the datagram. 
0290 991 ; Inputs: 
8 90 336 ; 
90 «995; R2 “Addr of datagram 
0290 994 ; R4 “Addr of PDT 
0290 995 ; 
0290 996 ; Outputs: 
0290 997 ; 
0290 998; RO-R3 : “Destroyed 
0290 999 ; other registers -Preserved 
029d 1000 ;- 
0290 1001 
029D 1908 -ENABL LSB 
029d 100 
029D 1004 CNFSDGREC:: 
029D 1005 
51 OC A2 9A O029D 1006 MOVZBL PPD$B_PORT(R2),R1 ; Get remote port # 
0114 C4 51 €0 esa} 1007 BBS R1,PDT$B_PORTMAP(R4),- ; Look PB existence up in 
03 C2A6 1008 sts 3 path map; branch if exists 
FD56" 31 O2A7 1009 BRW INTSINS_DFREEQ1 ; Discard datagram and return — 
O2AA 1010 ; from there to interrupt service 
O2AA 1011 
aoe 101g PB_EXISTS: 
53 0174 C4 ODE O2AA 1014 MOVAL PDT$Q_FORMPB(R4) ,R3 ; Get formative PB Listhead 
054C 30 O2AF 1015 BSBW SEARCRA_PATHS ; Search path List for PB 
09 50 €8 O2B2 1016 BLBS RO, FOUND_PB ; Branch if success 
psB2 1017 
0285 1018 CONFIG_LIST: 
bsB2 1019 
056A 30 0285 1020 BSBW CNFSLKP_PB_MSG ; Locate PB in open config database 
0A 50 E9 02B8 1961 BL8C =. RO, CONF IG_ERR ; Branch if couldn't find it 
Ss Hh 8 7 \} ¢ MOVL R1,R3 ; Else copy PB addr to right reg 
6 BE i : FOUND_PB: 
51 12. A2 Hs QO2BE 1026 MOVZWL PPDSW_MTYPE(R2),R1 ; Set event = rec'd dg type 
O1FE 1 C2 1027 BRW ACTION_DISP 3; Transfer to action dispatcher 
C 18 8 : and return from there 
3 1029 
¢ 10 0 CONF 1G_ERR: 
) cS 1p § BUGCHECK CIPORT,NONFATAL ; Inconsistent database 
FD31" 31 CC 1034 BRW INTSINS_DFREEQ1 : If nonfatal, discard d 
oF : 5 and forget it happene 
O2cF 1 ; -DSABL LSB 


ro V04-00 
CJPACONF IG.MAR;2 


> 8 
PACONF 1G 16*SEP=1984 01:14:51 VAX/VMS M 
YOseoDt ea 1984 SRE 


Page 4s 
CNFSSTOP_VCS, SEND STOPS TO ALL VCS 10-SEP-19 1:16:2 DRIVER. (9) 


-SBTTL CNFSSTOP_VCS, SEND STOPS TO ALL VCS 


This routine is called during a bugcheck. It is used to notify 
other systems to which we have circuits open, that this system is 
shutting down. Notification is best try only, no guarantees of 
success. 


CNFSSTOP_VCS first checks if the PDT is offline. If so, return 

is taken"since the port is not operating. Otherwise, the port 

map is examined to determine each port which is known. For each 
known port (except self), ; shutdown datagram is sent. After a hang 
of an adequate number of milliseconds, the port response queue is 
rummaged for the sent datagram. If not found, the port is assumed 

to be not opreating and return is taken without further notifications. 
If the sent datagram is found, it is removed from the response queue 
for reuse in the next host shutdown datagram. 


Inputs: 
R4 -PDT address 
Outputs: 
RO-R3 -Destroyed 
Other registers -Preserved 


Shutdown datagram is assembled into the PDT. It must not be 
allocated from pool since that is too risky during a bugcheck: 


.ENABL LSB 
CNFSSTOP_VCS:: 


MOVL PDT$L_UCBO(R4) ,RO Get UCB address 


POPIPIPIPOPIMPOPIPOPINPYAIMAIPINIPUDININIAIPININININININININININININININININININININININININININININININININIPININY 


RRA HH HMMM MM MS SO OS FS MOOOOOOOOOAOAOOOOAOAAOAOAAAAAIOAOAOAAAAIAOAAAAAOONO 
— 


AMOS COAL MMANLOS OG SFT nn nn eo 
ee a a a a a tt ts Ss — 49 — 8 3 4) 4 ss ss 2 6 ss Ss ss ss Ss as ss ) —) ss 9 >» 5 9 9» 2s st 


MEW OOD NAUEWID SO ODNAUW EWN O OO NAME WN 9 OO NAME WN O OONOAUES WOO 


COOSOOSOSCOOSCOSOOCOOSOOSOCOOCOCOOCOOSOCOOCOOCOCOSCOCOCOCOOOOOOOOOOOOOOOOoOO 


04 «€1 BBC #UCBS0_ONLINE, ; Branch if the port 
23 64 AO UCBSW_STS(RO) ,208 ; _is offline 
019C C4 —O*ODE MOVAL PDT$Q~TEMP_RSPO(R4) ,- :; Init the temorary response 
019C C4 88 PDT$SQ_TEMP_RSPQ(R4) ; Queue to empty 
019C C4 CODE 0 MOVAL PDTSQ_TEMP_RSPQ(R4),- = ; 
O1A0 C4 0 PDTSQ-TEMP-RSPQ+4(R4) —; 
52 0180 C4 ODE 0 MOVAL PDTS$B_HSHUT_DG(R4),R2 ; Get addr of host shutdown dg 
oe K 0 CLRQ (R2) : Zero self relative Links to 
0 > show 49 not queued anywhere 
00380014 8F 00 08 MOVL  #<PDTSC_HSHUT_SIZ + <DYNSC_CIDGa16>>,- 
A2 08 PPDSW_STZE(R2J ; Set structure size and type just 
09 : for completeness 
569 30 09 BSBW CNFSLKP_PB_PDT 3; Look up Ist/next PB on this PDT 
03 50 «£8 9 BLBS RO, FOUND_VC ; Branch if PB found to start of 
9 3 coroutine recessing, Coroutine 
83 : called back from CNFSLKP_PB_PDT 


E 
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0080 83831 ft } 38 20$: BRW ALL STOPPED ; Else no PB found and we are done 
4 : 38 FOUND_VC: 
48 A391 FF 1100 CMPB PB$B pegrece <5). - :; Is remote end of vc speek ing a 
01 1101 #PPDSC_PRT_ELOG : nig enough rev level to receive 
11 ¢ ; ost shutdown even if he doesn't 
11 3 _act upon it? 
70 ~=OoF i : BLSSU 40% 3; Branch if not 
0 1106 STOP_NEXT: 
oC AS. 91 8 1108 CMPB PBSB_RSTATION(R3) ,- 3; Is the remote end our 
017D C4 0 08 1109 PDT$B_PORT_NUM(R45 ¢ own port number? 
6 13 0308 1110 BEQL f ; Branch if so and bypees shutdown dg 
52 0180 C4 43 8390 1114 MOVAL PDTSO_NSHUT_0G(RS) ,R2 ; Get addr of host shutdown dg buffer 
ge D aif 1146 TSTL (R2) : Is dg still queued somewhere? 
F 12 0314 111 BNEQ 40$ : Branch if so 
OC AS) 9B b318 1114 MOVZBW PBS$B ty ame = Set remote port # and 
OC A2 19 1115 PPDS$B _P ;, zero status byte 
0101 8F BO 0318 1116 MOVW B<PPOSC SNDDG+<PPDSM_ sarhect 
OE A2 O31F 1117 PPD$B_OPC(R code and response bit 
00060008 BF 00 9821 1118 MOVL —«#<PPDSC nsHut T AGEN <PPOSC i Set opcode.» 
10 A2 0327 1119 PPDSW LENG 3 get PPD lone and PPD type code 
FCD4* 30 0329 1120 BSBW INTSINS tona 3 t out 
6° 13 1 TIMEWAIT #<20005,40,40,8 3 wait unconditionally for 20 msec 
B32 Hi SEARCH_RSPQ: 
0353 1125 SQRETRY REMQHI] PDT$SQ_RSPQ(R4) ,RO,ERROR=LOCK_UNAVAIL 
0367 1126 3; Remove next response pkt from 
0367 1127 3; head of response queue 
OC 1D 0367 1128 BVS 40$ ; Branch if no more. 
52 0180 C4 DE 0369 1129 MOVAL PDTS$B_HSHUT_DG(R4),R2 ; Retreive addr of our datagram 
52 50 01 $95 1130 CMPL RO,R2 : Is it our ohyeenen datagram? 
03 12 1 1131 BNEG 608 : Branch if n 
62 7C bae8 11 ¢ CLRO (R2) ; Else show d9 ‘sulle dequeued 
Baye i} ; ; from port queue 
05 0375 1135 40$: RSB ; Return from coroutine call and 
376 (11 $ ; go look for next port to send 
Bare 1 3 Shutdown to 
01A0 D4 «=660~—Cis«éOO# 76 «11 5 60$: INSQUE (RO),@PDT$Q_TEMP_RSPQ+4(R4) ; Else save the response on 
78 1140 : private queye - ney want to 
7B (1141 3 ook at it in the dump 
D611 4 1328 BRB SEARCH_RSPQ ; Continue searching response queue 
6 43 1183 LOCK_UNAVAIL: 
8E 05 43 1148 TSTL (SP)+ ; SQRETRY BSBWs here, so pop return 
7F 1148 ALL_STOPPED: 
7F (114 
05 ir 129 RSB 
Hy 1152 -DSABL LSB 
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11 ~SBTTL ACTION DISPATCHING 
~SBTTL = ACTION TABLE FORMAT 


+ 


The ACTION_TABLE is a List of action routines to execute for 
each combination of port-port VC state and event. The format 
of the table is a list of VC state entries. Each state entry 
is followed by a List of events possible for that state. Each 
event entry is fot loved by a List of actions to be taken for 
the event. The table is arranged linearly. 


The various entries are gynecetes by the macros STATE, EVENT, 
ACTION, and ENDACTION defined in the next section. Actions 
may return status or not. For actions which do return status, 
the action dispatcher checks RO for success/fail status. In 
case of failure the action disRatcher calls routine CLEANUP 
and terminates action routine execution. 


The format of the various types of entry in the action table: 


STATE: poccccese}ocecccce + 
ioffset os nxt st ; state code ' 


i 


0 Cd Cd CD G9 CD Gd C0 C0 C9 CD C9 09 CD G9 CD CD. CD GD CD CD. CD CDCD 


COOGCOOCOOSOSOSSOSSSOSOSSOSOSOSOCOSCOOOOOOCOOOOOOOOOOOOOOO 


The end action actin type is special: it moves the argument 
into the PB state word and terminates the list of actions. End 
action entries are a single word long. 


OOO OO 00900 09 09 69 09 09 09 09 09 SIN NI INSINSIENN NN NIAAAAAAAAAAUIUINIUIUINT 
BIE WN 9 ODNAUE WIN OS OOONA UE WO ODNOAOU EW OVOONO US 
STR Te TOTO Tere Te rere rere rerererererererererererererererererererererarere rere 


a ts a a a st a ws a st a tt tt 


3 

3 

3 

3 

38 EVENT: pees oeceae ee ee ees 
38 ioffset to nxt evt: event code } 
535 64100 - ej # j.j§ 4} €90520000¢eseunccse$acerence}ecessened 
38 

38 ACTION: ececeecooe}ooeesooe}ooesosce $oweececn + 
38 lotfset to routine! arg : code | 
3 eeceeeeeetfoooaeeaeaaetsooacaeaen pwr wwe none 
$3 Standard inputs to action routines are: 

35 R1 “Argument in action table ent 

38 B “Addr of IDREC/START/STACK/ACK a if any 
38 R -Addr of PB 

33 RG Addr of PDt 

8 

38 

38 

38 
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' -SBTTL = ACTION TABLE MACROS 
: Macro to define a state entry: 
«MACRO STATE CODE 
NOSHOW 
$$-. : Save start of state entry 
eWORD CODE 3; State code 
-1F DF SSSLAST_STATE ; If there was a previous 
Prt + sf STATE+STSW_NEXT i; state entry, go back and 
$$S-SSSLAST_STATE : file in its fwd Link 
cSB8bestSu, NEXT 3; and reset pointer to this entry 
“GORD 0 ; Allocate word for fwd Link 
SSSLAST_STATE=$$$ ; Define start of this entry 
SSSLAST_EVENT=0 ; Reset addr of last event to 
ow ; show start of new List of events 


0 
0 
0 
0 
0 
0 
0 
0 
03 
03 
83 
03 
03 
8 
03 
03 
03 
03 
03 
03 
03 
03 
83 
a3 
; 
03 


. SH 
~-ENDM = STATE 


; Macro to define event entry: 


eas M mee CODE 
. NOSHO 


Sab : Save start of entry 
ORD CODE : Event code 
at NE SSSCAST EVENT ; If there was a previous event, 
-=SSSLAST EVENTSEVSy NEXT z; then go back to it and 
WORD $$S$-SSSLAST_EVENT : fill in its fwd Link 
‘eupe NEX ; and return to current entry 
ORD 0 3; Allocate word for fwd Link 
$58LAs1 _EVENT=$$$ ; Define addr of this entry 


JENDR” EVENT 


; Macro to define action entry: 


7 a ROUTINE ,FLAG=0,ARG=0, CODE=AC$C_ CONTINUE 


$$-. ; Save start of entry 
“BYTE CODE! FLAG : gesten type code 

‘ s umen 

-WORD ROUTINE-$$$ ; Offset to action routine 


.ENDM = ACTION 


: Macro to define an endaction entry: 


SOOOCOCOOCOCOCOCOCOOCOOCOCO COCO O COCO OCO OOOO OCOCOCOCO OOOO OOCOOOOOOOOOOOOOOO 
a a ee ee a a a dd 
PIP IM IP IPPNININININININPININIPINININIAINPYPIPIPIPYPINPIPYIPIPINIPINININPIPYIPIPIPIPUPIPIPIPINIPIPIPINIPINPIPINININY — 
FAO ODNA NE WN O OD NAME WIN OOD NOAUNE WW OO OD NAUES WN OUOONAUS LUO OO 


UNIS BS BBB EB BWW WINN II IRON PNP SS SS IQ OOOO OO 


-MACRO ENDACTION NEWSTATE 


ret 


{6 


- ACTION TABLE MACROS 


ng 


‘Byte 


ACSC_END 
Astenh 


ENDACTION 


18-SEb=198¢ 81:16:25 YORIVER. SRESPACONF To.maR;2 


; Action type code 
¢ Action arg = new PB state 


— Hy 


vi 
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-SBTTL = ACTION TABLE OFFSETS AND DEFINITIONS 

suueg 
sung 
94 4444 0 
0000001 

8 

8 

8 


: Offsets to state, event and action entries in the action 
3 dispatch table: 


te code (codes defined in SPBDEF) 
set to next state entry 


$W_CODE = 
SWINEXT = 3 


$W_CODE = g 
EVSWINEXT = 


AC$B_CODE = 0 
ACSB-ARG = 1 
ACSWINEWST = 1 
ACSWUACTION = 2 


ST Sta 
ST Off 
EV Event code 

Offset to next event entry 
Act 

Act 

New 

Off 


ion code 

ion routine argument 

path blk state on end action 
set to action routine 


NNN NENA AAA AAAAO 


> 
OONA UNE" O DOONAN Ew 


00000001 
00000002 


0 : Event code definitions: 


; Following codes (sign bit clear) assumed equal 
to the corresponding PPD msg types: 
START dg received 


90000000 EVSC_START = 0 

0000001 EVSC_STACK = STACK dg reveived 
0000000 EVSC_ACK = 2 ACK dg received 
0000000 EVSC_ELOG = Error hog dg received 
00000006 EVSC_HOSTSHUT = 6 Host shutdo 


wn dq received 

The following codes are assumed to have 
no definition as PPD types that we 
will ever receive (needs to be in 
architecture that sign bit set codes 
are reserved.) 


Sete Se Se Se Se Se Se Be Se Se Se Se Se Oe 


00008000 EVSC_SCSMSG = *x8000 SCS control msg received (connx 
management or credit 

00008001 EVSC_TIMEOUT = *x8001 Path timer expired 

00008002 EVSC_SEND_START = “x8002 Send 1st START, initiate handshake 


: Action code definitions: 


No more action routines, update PB state 
More action routines. 
; If set, action routine returns status 


80000001 


00000080 


" 
—s 
. 


i ts ts as a a a a a et tt tt 


SGOOGOSCOSSCCOOOOOOO0OOMWo 


SOOOOOOCOCOOCOSOOOCOOOOCOOOOOOOOoOOoOO 


o.00 CO 
AUER 9 ODNAUE WN 0 OONOUES Ww — 


ACSC_END = 0 
ACSC_ CONTINU 
STATOS = “x8 


om 
. 


J 8 
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-SBTTL = ACTION TABLE 


3:35 YORIVER-cReIPACONFre.mans2 - Oe cay. 


ACTION_TABLE:: 
STATE PBS$C_CLOSED 


EVENT EVSC_SEND_ START 

ACTION SEND_1ST_START 
ACTION START_TIMER 
ENDACTION PBS$C_ST_SENT 


EVENT EVSC_EL * 
ACTION REC ERROR DG 


New PB just created 


Initiate START handshake 
Send ist START dg 

Enable timer 

State moves to start sent 


NWUIWMOO OSS OOOCCSOO 


OOO OM COCDCOCDOOM, 


Error log dg received 
Go log i 


3 o 
Me ENDACTION PBSC_CLOSED ; State unchanged 
hs STATE PBSC_ST_SENT 3; State= start sent 
A ENT EVSC oT Ack ; Received STACK dg 
wf ACTION STOP" TIMER 3; Disable timer 
AA ACTION BUILB_SB,STATU 3; Build a Aesanstes SB 
35 ACTION SET_CIRCUIT, STATUS 3 Tell ok to open VC 
38 ACTION ENTER_PB, STATUS ; Move to system database 
386 cTIO SEND WACK 3; Send 
4 ENDACTION PBS$C_OPEN 3; Move PB. state to open 
D T EVSC_START ; Received START ag 
1 ACTION BUILB_SB, STATUS ; Build formative 58 
SET_CIRCUIT, STATUS 3 Tell pert to open VC 
ACTION SEND_1ST_ STACK : Send STACK dg 
ACTION START_TIMER 3; Start a timer 
ENDACTION PBSC "st REC 3 Move PB state to start rec'd 


EVENT EVSC_TIMEOUT ; Timer expired 
ACTION SEND- START, STATUS ; Retry send of START dg 
ACTION START_TIMER ; Restart timer 
ENDACTION PBSC_ST_SENT ; PB state stays start sent 


VENT EVS$C_ELOG Error log dg received 
ACTION REC “ERROR DG Go 
ENDACTION PBSC_ST_SENT 


Se oieeshenael 


STATE PBSC_ST_REC ; State is start rec'd 
EVENT EvSC_ACK Rec'd ACK dg 
ACTION IGNOR Return dg to DFREEQ 
ACTION STOP Disable timer 


TIMER 
ACTION ENTER. PB, STATUS 
ENDACTION PBSe OPEN 
EVENT Evsc oS tSms6 
ACTION STOP" TIM 
ACTION ENTER_PB,STATUS 
ENDACTION PBSC_OPEN 
EVENT EVSC_STACK 
ACTION STOP-TIMER 


Move PB to system database 
Move PB state to open 


Rec'd SCS control msg 
Stop time 

Move PB of system database 
Move PB state to open 


Rec'd STACK dg 
Disable timer 


ee ee ee ae ee em em a me ee ee ee ee ed ed ed ed od od od od 
PDR DQQD SPs B Be BB EE ENN NII IIIA POPIPPUR POPPI 2 OOD 
PAD 0 OO NOA UE WIN 2 O ODA UNE WIN $$ 9 ONO UE WIN 0 OO NOU EWN OWOOVNO US WOO 

> 

o 

~ 

_ 

oO 
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: 
: 
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ACTION PDATE_SWINCARN 3; Copy new incarn # to SB 
a 1 Bite ergrptavon, fy Ui svsten Seton 
4 g § ENDACTION PBS$C"OPEN ; Move PB state to open 
NT EVSC_START ; Rec'd START dg 
" r ‘ OVE CTION UPDATE _SWINCARN ; Copy new incarn # to SB 
4 ; 1 ¢ ACTION SEND_1ST_STACK ; Send STACK dg 
4 1 ACTION START_TIMER ; Start timer 
“ : : : ENDACTION PBSC_ST_REC ; PB state stays same 
VENT VSC_TIMEOUT ; Timer expired 
" ; i $ . ACTION SENDTSTACK STATUS ; Try another STACK dg 
446 1 8 ACTION START_TIMER ; Start up the timer again 
ree ’ ; ENDACTION PBSC_ST_REC ; PB state stays same 
44D 1381 VENT EVSC_ELOG ; Error log dg received 
451 1 ¢ ACTIO REC_ERROR_DG : Go log i 
455 ! ; ENDACTION PBST_ST_REC ; State unchanged 
04 ; 1385 STATE PBSC_OPEN ; Path state is open 
$4 ; i ; EVSC_STACK ; Rec'd STACK dg 
0460 1388 ACTION SEND_ACK ; Send ACK dg 
Be 3 ! 4 ENDACTION PBSC_OPEN ; Leave PB state open 
4 
0467 1391 
; Rec'd ACK d 
ee 3 j ACTION HOARE bc ‘ Return dg te DFREEQ 
04 1 
O046F 1394 ENDACTION PBSC_OPEN ; Leave PB state open 
04 $ 13 é EVSC_START ; Rec'd START dg on open VC 
0476 139 ACTION BREAR_PATH ; Collapse path 
Reen 1338 ENDACTION PBSC_VC_FAIL ; ary B state as set 
ocr 1201 EVS$C_ELOG ; Error log dg received 
0481 1006 ACTION REC_ERROR_DG : Go log i 
485 140 ENDACTION PBS$T_OPEN ; State unchanged 
a488 1208 EVSC_HOSTSHUT ; Host shutdown received 
48C 1406 ACTION BREAR_HOST ; Go close VC with special status 
ks 1492 ENDACTION PBSC_VC_FAIL State is ve fail 
i 1408 STATE PBSC_VC_FAIL ; VC failure in progress 
4 
VSC_START ; Rec'd START dg 
198 it ACTION TONORE DG 3 Discard without action 
49F 1415 ENDACTION PBSC_VC_FAIL ; 
A 
4A2 1415 EVSC_STACK : Rec'd STACK dg 
ACTION IGNORE _DG ; Discard without action 
cM i ENDACTION PBSC_VC_FAIL ; 
VENT EvSC_ACK ; Rec'd ACK d : 
1B 1430 . ACTION IGNORE _DG ; Discard a action 
485 14 ENDACTION PBSC_VC_FAIL : 


] 
j 


= action aL MECHESHOEL GUNES) RATER SRESRURSCTE mune °° 


14 

14 g EV$C_ELOG : sg log dg received 
1424 CTION pas ERROR_DG i Go log i 

1? 2 ENDACTION PBSC_VC_FAIL 3 State unchanged 


ro V04-00 Page 31 | 
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- ACTION_DISP, ACTION DISPATCHER 10-SEP-1984 01:16: 


-SBTTL = ACTION_DISP, ACTION DISPATCHER 


+ 


The action dispatcher looks up in the action table the List of 
action routines to execute for the current path block state and 
the event that ecrurres If an action routine specifies that it 
returns peers, Se R at checked upon return for success (LBS) 


4 

4 

4 

4 

4 

4 or failure (LBC). On failure the cleanup routine, CLEANUP, is called 
4 and ACTION_DISP exits. Normally, action routines are executed 

4 until an end action routine is encountered. The end action automatically 
4 sets the path block state to the value specified in the end action 

r argument. 

The following register conventions apply for action routines: 

4 ® “Addr of START/STACK/ACK/IDREC dg. if any 

4 “Addr of formative PB 

4 R4 “Addr of PDT : 

4 R5 “Addr of current action entry 


Actions may use RO and R1, but must use R2 with care. Action 
routines must preserve all other registers. 


Inputs to ACTION_DISP: 


FW SO OOO NAME WN OOOO NAN EWN S ODNOAOU SW OVOONOUS WOO 
> 


ce ml me me ee ee eh ed ed ed ed od 2 — 2 3 Ss = 2 8 ds os 2 = SS 3 ss a ts ss 2 1 
SESS SSS SSS SS SSS SS ee ee ee 
0000000009 INI NIAAAAAAAAOAOMUINMUUNN REE E EEE BE BWW 


; 


DV MOOOOOOQOOOOOAOOOOOOOAOAOOOOOOOOOOAOOAOAOOOAOAOOOAOOOOAOAAOAOOAOOOAOAO 


04 
04 
04 
04 
04 
04 
04 R1 “Event code 
3 R2-R4 “As shown above 
04 Outputs: 
04 
04 
3 other registers -Preserved 
4 
" ASSUME EVSC_START EQ 0 ; Assume that events START and 
4 ASSUME EVSC_STACK —Q 1 ; STACK are .LE. 1 
04 SSUME EVS$C_ACK EQ 2 ; Assume that events associated with 
Be ; rec'd dgs are .LE. 2 
04 ASSUME PBS$C_CLOSED EQ 0 3 Assume that all the 
04 ASSUME PBSC_ST_SENT EQ 1 : formative path block states 
Be ASSUME PBSC_ST_REC EQ 2 3; are .LE. 
r -ENABL LSB 
4 ACTION_DISP: 
55 OD 04 5 PUSHL R5 :; Save a register 
51 DD 04 § PUSHL R11 ; Save event code 
55 FEBS CF DE ri MOVAL ACTION_TABLE,R5 ; Get addr of action table 
r ° NEXT_STATE: 
9 $3 BO 04 1 MOVW ST$W_CODE (RS) RO ; Get next state code 
12 A 0 B1 04 ; CMPW =s« RO, PBSW_STATE(R3) : State codes match? 
08 13 4 BEQL LOOKUP EVENT : Branch if so 
50 024A 3 4 4 CVTWL «= STSW_NEXT(R5) ,RO ; Get offset to next state 


j 
| 
| 
| 
| 
RO-R2 -Destroyed | 
| 
| 
| 
| 
| 
| 


<v 
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v04-00 = ACTION_DISP, ACTION DISPATCHER 10-SEP-1984 01:16:2 DRIVER. SRCIP PACONF 1G.MAR:2 ( 4) 
$f 1 409 1485 BEQL PR-SIATE ERR ; Branch if no more states | 
sae f 4DB 14 § ADDL RO,R5 ; Else step to nxt state entry 
EC rt 1? BRB NEXT_STATE 3: and try it 
aE 14 LOOKUP_EVENT: | 
85 DS 4E 1491 TSTL (RS) + ; Step to start of event List | 
rt; 1498 NEXT_EVENT: | 
51 65 B61 O4E2 1495 CMPW EV$W_CODE(R5) ,R1 ; Event codes match? | 
4 1 4E 1398 BEQL NEXT_ACTION 3; Branch if yes 
50 O2A 3 4E7 149 CVTWL «= EVSW"NEXT(R5),RO 3: Get offset to next event 
2 1 4EB 1438 BEQL PB_STATE_ER ; Branch if no more events 
55 0 CO Q4ED 149 ADOL RO,RS ; Else step to next event entry 
FO 11 Ree 1300 BRB NEXT_EVENT ; and try it 
a 130¢ NEXT_ACTION: 
85 D5 O4F2 1504 TSTL (R5)+ 3; Step to Ist/next action entry 
65 95 O4F4 1505 TSTB (R5) z: end of action routines? 
23 13 bere 1396 BEQL END_ACTION ; Branch if so 
51 01 A5 QA O4FB 1507 MOVZBL AC$B_ARG(RS),R1 ; Pick up argument 
50 02.A5 32 O4FC 1508 CVTWL  ACSW7ACTION(RS) ,RO S Get offset to routine 
6540 1 8208 1509 JSB (R5) CROJ 3: Call action routine 
65 95 0503 1510 TSTB (R5) ; Does routine return status? 
EB 14 Q505 1511 BGTR NEXT_ACTION : Branch if not 
£8 50 €8 0507 a BLBS RO,NEXT_ACTION ; Branch if status nod 
51 B8EDO OSOA 151 POPL R1 3; Retreive event 
01 51 D1 050D 1514 CMPL R1 ,WEVSC_STACK 3; Is it rec'd START oe STACK dg? 
03 14 0510 1515 BGTR 10$ : Branch if not 
FAEB’ 30 0312 1218 BSBW INTSINS_DFREEQ1 ; Else must return rec'd d 
ba) 131? : free queue to prevent Sloteeten 
55 8EDO 0318 1519 10$: POPL 5 ; Restore R5 
02c3 31 0518 1520 BRW CLEANUP ; Else xfer to PB/SB cleanup and 
0518 1521 : return from there 
051B 15 § 
geie 13 Z END_ACTION: 
01 AS B80 0518 1525 MOVW AC$W_NEWST(R5),=- ; Update state of path block 
12 A3 51 15 § PBSW_STATE(R3) 3 
51 8ED0 3 1 POPL R1 3; Clear event type code from stack | 
55 8—EDO 05 13 : 20$: POPL RS ; Restore R5 
05 : § 1 9 RSB 3; Return 
; 4 13 ; PB_STATE_ERR: | 
1 7 1534 POPL = «R1 ; Retreive event code 
3 ad : A 1535 TSTL R1 : Indicate thet dg is held? 
03 19 OS2c 15 § BLSS 30$ ; Branch if no 
FACF® 30 05 ; 15 BSBW INTSINS_DFREEQ1 ; Else return PPD handshake dg 
: ' 1 8 3 to free queue 
12 AS. Bl 0531 1540 308: CMPW PBSW_STATE(R3),=- 3s Is path state in formative 
02 534 1541 #PBSC_ST_REC 3 State? 


<wv 
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PACONF IG Sak 3 ad B49 01:16:34 ue Macro V04-00 Page 33 | 
v04-001 - ACTION_DISP, ACTION DISPATCHER 10-SEP-1984 01:16:2 DRIVER. SRCJPACONF IG.MAR;2 (14) | 
DE 1B 05 1368 BLEQU§ 10$ ; Branch if so to delete PB and 
5 154 3; _abandon start attempt 
EA 11 : 4 1302 BRB 20$ ; Else ignore, join common exit | 
539 1546 -DSABL LSB 


¢ 9 | 
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v04-00 ACTION ROUTINES 1 ~3Eb=|$8c b1:16:25 LORIVER. SRCIPACONF1G.MAR; 2 - (15) | 
1 ~SBTTL ACTION o's He 
1 ~SBTTL = SEND_IST_ START, SEND_1ST START DG 
-SBTTL = SEND-START, SEND A START DATAGRAM 


+ 


SEND_START allocates a dtagram buffer from nonpaged pool 
formats a START pessege in it and sends the datagram. The data 
that goes into the START message is assembled into the message 
by routine FMT_START_DATA. 


SEND_START has two entries: SEND_1ST_START which resets the START 
tal count and SEND_START which decrements and checks the retry 
count before sending the datagram. 


The retries must continue until the target remote port is polled 
again. This time depends on the interval between poller wakeups 
the number of ports — polled at each poller wakeup, the total 
number of ports to be polled, and the time between retries 
(SCS$GW_PASTMOUT) as follows: 


# retries = (SCS$GB_PAMXPORT * SCS$GW_PAPOLINT) / 
(SCS$GB_PANPOLL * SCS$GW_PASTMOUT) 


The retry count is computed each time it's set since the dependent 
variables are dynamic SYSGEN parameters. 


SEND_START may fail for two reasons: insufficient pool to 
allocate the datagram buffer, or retry count exceeded. 


Inputs: 
R2 -Addr of datagram to turn around (1ST_START) 
RS “Addr of PB 
R4 “Addr of PDT 
Outputs: 
RO -0/1 for fail/success (SEND_START only) 
Ri, , ~Destroyed 
other registers -Preserved 


3; PPD message format assumption: 


ASSUME PPDSW_LENGTH+2 EQ PPDSW_MTYPE 
.ENABL LSB 
SEND_1ST_START: 


MOVL #<PPDSC_START@16 + PPDSC_START_LEN>,- 
PPD$W_LENGTH(R2) ; Set dg size and type 


BRB COM_SEND_1 ; Go do it 
SEND START: 


CGOOOCOOOSOOOGSOOOSOOGOOOSOFOOSQVOOSOSGSOOSOSOOOSCOCOCCOOOOOOOOOCOOOOOOOCOOO 
DV PUPP PVP PV PV PV PV PU DUPUSUSUSUSUSUSESUSUSUSUSUSUSVS TSS SVSTSTSUTTSTTTTUIUUSISTSSITTTTITTI 
WAAAAAAAAA AAA. AAAAAAAANAI AAI AIA NAINA GIANNINI AAAI AINA AI AANA AA AAAINI 
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Pi 
= SEND_START, SEND A START DATAGRAM -SEP-1984 01:16:2 DRIVER. SH CIP ACONF IG.MAR;2 sided v¢ 
| 3 1605 
22 A3 F 16 $ DECW PBSW_RETRY(R3) ; Decrement retry count 
te tg 16 BEQL SEND-ERR : Branch if no retries left 
FAB9 44 16 : BSBW INTSALLOC_DG1 ; Allocate buffer from pool 
OE 50 ! v4 1903 BLBC RO,SEND_ERR ; Branch if no pool 
0242 30 O54A 1611 108: BSBW FMT_START_DATA Set start dat 
3 dO 54D 1916 MOVL #<PPDSC sTante}6 + PPDSC “START LER, . wee 
10.A 54F 161 PPD$W_LENGTH(R2) 7 Set aq si 
O3AB 30 0551 1614 BSB SNDDGRET : Send dg with RETELRG=TRUE | 
0554 1615 3 to channel dg to response 
beee 1916 3 queue for return to pool 
0936 1618 SEND_SUCCESS: | 
50 01 9A 0554 1620 MOVZBL #SS$_NORMAL ,RO $ i 
05 0557 1631 RSB en faders | 
9328 ee SEND_ERR: 
50 pd4& 0558 1625 CLRL RO ; Set status = fail | 
a et coe 
0558 1628 -DSABL LSB | 


-— OO 


5 
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~ SEND_STACK, SEND A STACK DATAGRAM 


dO 


WANN WIAWAN 
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-SBTTL SEND_STACK, SEND A STACK DATAGRAM 


This routine has two entries: 


SEND_1ST_STACK resets the retry count for sending STACK's and 
recycles the received START datagram into a STACK message. 
See SEND_IST_START comments regarding calculation of the 
retry count. This entry always completes with success. 


SEND_STACK is called when the timer expires and a retry is 

esoreer as It decrements and checks the retry count. If more retries 
remain, it allocates a datagram buffer from pool. This entry can 

fail due to expired retry count or insufficient pool. 


Both entries wind up by formatting and sending a STACK datagram. 


Inputs: 
Re “Addr of rec'd datagram (if 1ST_STACK) 
R “Addr of PB 
RG ~Addr of PDT 
Outputs: 
RO -0/1 for fail/success 
R1,R2 ; -Destroyed 
other registers -Preserved 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge 
+ 


: PPD message format assumption: 


-ENABL LSB 
SEND_1ST_STACK: 


Set up start data 
Send dg with RETFLAG=FALSE 
to channel dg buffer back to 
free queue 
Take success exit 


B 
BSBW SNDBG_NORET 


MOVL #<PPDSC_STACK@16 + PPDSC_STACK_LEN>,- 
PPD$W_LENGTH(R2) ; Set dg size and type 
COM_SEND_1: 
MOVZBL G“*SCS$GB_PAMXPORT ,RO ; Get maximum number of ports 
MULW2 G*SCSS$GW_PAPOLINT,RO 3; Compute maximum port # 
3; .* poller interval 
af, G*SCS$GB_PANPOLL ,R1 ; Get # ports to poll per interval 
MULW G*SCS$GW~PASTMOUT ,R1 3; Compute # ports to poll per 
3; _interval * start timeout 
DIVL 81-200 3: Divide, increment in case of 
ADDW #1,R0,PBSW_RETRY(R3) 3 remainder, and save retry count 
SBw = FMT_START_DATA : 


BRB SEND_SUCCESS 


F 


PACONF IG 16-SEP-1984 2:14:51 AX/VMS Macro V04-00 Page 37 P| 
VOse00t = SEND_STACK, SEND A STACK DATAGRAM 18- ~SEP-1984 tF 1:16:23 LORIVER. SREIPACONF1G.MAR: 2 ~~ (16) | vi 
90 1687 
4 + 8 SEND_STACK: 
22 A 87 90 1690 DECW PBSW_RETRY(R3) ; Decrement retry counter 
C 13 0593 1691 BEQL SEND_ERR ; Branch if no reeries left 
FA68' 23 59 1938 BSBW INTSALLOC_DG1 ; Allocate dg buffer 
BD 3 598 169 BLBC R N mo : eee if no pool 
O1F1 30 0598 1694 BSBW 360s FMf_START_D : up, st start data | 
eed | 8F DO O5S9E 1695 MOVL ett, STACKI6 + PPDSC_ STACK” EN> 
10_A2 5A4 1696 PPDS$W_LENGTH( ; oq si and type 
0356 30 ene 169 BSBW SNDDG_RET : ft dg with RE TFLAG=TRUE 
SA 1998 ; to channel dg to response 
5A9 199 3; _queue when sent 
FFAS 31 O5A9 1700 BRW SEND_SUCCESS ; Take success exit 
OSAC 1701 
OSAC 1702 -DSABL LSB 


ear our 16 
v04-00 - SEND 
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ACK, SEND ACK DATAGRAM 


18-SEP 


-SBTTL = SEND_AC 


=1986 O1:16:25 UDRIVER. SAE 


K, SEND ACK DATAGRAM 


0 V04-00 
JPACONF 1G. MAR; 2 


SEND ACK turns a previously received STACK Getoer es into an 


; ACK and sends the datagram. 


; inputs: 


: 


; Outputs: 


RO, h 
other registers 


-ENABL LSB 
SEND_ACK: 
00020004 8F 00 MOVL acPPosc itt & 
10 A2 PPDSW_LENG 
0351 +31 BRW SNDDG “hORET” 
.DSABL LSB 


No failures are possible. 


“Addr of { og being turned around 


“Addr of 
“Addr of PDT 


“Destroyed 
-Preserved 


; PPD message format assumption: 


ASSUME PPDSW_LENGTH+2 EQ PPDSW_MTYPE 


: PPD$C_ACK_LEN>,=- 
: et dg size and t 
Send dg 


with RETF AG= FALSE 


to channel dg buffer back 


free queue. 


roe, 


, 


v( 
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is -SBTTL © UPDATE_INCARN, UPDATE SW INCARN FROM 
& -SBTTL = ND START/STACK 


+ 


This routine exists tag el: for the convenience of the HSC 
which wants to sent its incarnation to its stort time, but 
oes not have a clock. The HSC uses the first PPD$Q_CURTIME 
t sees in a START/STACK that is nonzero as its start time. 
Until it receives the time from some system in the cluster, 
‘t conducts start handshakes with a software incarnation number 
of zero. 


f VMS receives a START from the HSC before the HSC has set 

ts start time, then the received START has an incarnation number 
of zero. A subsequent START/STACK from the HSC will however have 
a proper incarnation number which is used by this routine to 
revise the formative SB. 


Inputs: 
Re “Addr of START/STACK dg 
R “Addr of formative PB 
RG “Addr of PDT 

Outputs: 


RO “Destroyed 
Other registers -Preserved 


DS DS DS DSO OOO OOD TTT SE SP 


CWONAUE WN (9 OONAUES WN 0 OBNOAOUS WO OONOUS 


-ENABL LSB 
UPDATE _SWINCARN: 
MOVL §PBSL_SBLINK(R3) 


RO 
MOVG  PPD$O_SWINCARN(R2),- 
sn SB$Q_SWINCARN(RO) 


-DSABL LSB 


50 30 A3 00 
28 A270 
2c AO 


Get formative SB 

Update formative SB with 
atest SW incarnation # 

Return 


a i kk kk at tk tk tt tt 8 
SSN 
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SONNE 
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19 
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F 
A 


S 
-SBTTL = ENTER_PB, MOVE PB (AND SB) FROM 
-SBTTL = LISTS TO SYSTEM WIDE 
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C 4-00 
CIPACONF 1G.MAR;2 (19) | 
ORMATIVE | 
T E 


DATABAS 


; ENTER_PB moves a pathblock and, if pyeseeery its associated system 

: block” from the formative pathblock List to the system wide 

; configuration database. In the process, and SCS send message 

; buffer and receive buffer, and SETCKT dg are allocated. The send 

: buffer address is stored in the PB and the receive buffer is queued to 
; the port. If fhe allocation fails, she path block ad system block remain 
; on the formative List and error exit is taken. 


; What happens to the formative system block depends upon the current 
; database: 


“If a matching SB does not already exist, 
then the formative SB is inserted in the database along 
with its formative PB. 

| 


-If a patching system exists, then check if the 

existing SB has any PB's Linked to it. If not, refresh the 
old SB with information from the formative SB and Link the 
formative PB to the refreshed SB. 


“If the existing matching SB has paths to it, check if the 
existing SB and formative SB have the same software incarnation. 
f not, then two different systems must be masquarading as the | 
same system ID and the formative SB and PB are thrown away 
(we refuse to talk to the newcomer.) 


If the incarnation numbers match, then we just add the formative 

. to the existing SB's List of paths and discard the formative | 

‘ 

A notching system means one that matches in both system ID and node | 


name. SB*s that match in one, but not the other are rejected and no 
ve will be opened to such a system. 


Naturally, there is an exception to the rule excluding systems with 
the same node name. Version 3.x systems with matching node names 
but unique system ID's will be permitted to enter the database. 

This is because 3.x systems all had the same node name (all blanks) 

and their orescence will have no effect on the VAXcluster sysap 

na 4.x system, 


Inputs: 
R3 “Addr of formative PB 
RG “Addr of PDT 

Outputs: 
RO -0/1 for fail/success 
R1 E “Destroyed 
other registers Preserved 


Pw www wah ah ah tb hb th th db dh ah ah hh dh bh bh dh ah hh ohh hh hh ah bh dh ah ab hh ah ah ah hh hh ah hh hh ah hl 
POOOODODOODODODOODOOOODOODODOODODODOODOAAOAOAOVOOAIOAOAIAIAIAIAIAIAAAIMAIMIAIMAIMOIVEIED ot 
Re eet 
kk i a tk th at ot ot tt = ot tt tt 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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§ ; System Block adjacency assumptions: 


C 
C 
: 
C ASSUME soso _sysrenjore EQ SBSW_MAXDG 
C ASSUME SBSW_MAXDG+ EQ SBSW_MAXMSG 
C ASSUM SBSU RAINS 6°? EQ SBST_SWTYPE 
C ASSUME SBST_SWTYPE+ EQ SBST_SWVERS 
C ASSUME SBST_SWVERS+4 EQ SB$Q_SWINCARN 
C ASSUME SBSQ"SWINCARN¢B EQ SBST_HWTYPE 
C ASSUME SBST_HWTYPE+4 E€Q SBSB_HWVERS 
C ASSUME SBSB_HWVERS*+12 EQ SBS$T_NODENAME 
: ASSUME SBST_NODENAME+16 EQ SBSL_DDB 
0000003C : UPDATE_LEN = SBSL_DDB-SBSB_SYSTEMID 
: -ENABL LSB 
¢ ENTER_PB: 
52. oD C PUSHL R2 : Save R2 
FASA' 30 C SBW INTSALLOC_MSG ; Allocate a msg buffer 
03 50 Ay C BLBS RO,10$ i: Branch if got it 
011431 ¢ BRW ENTER_ERR ; Else go to error 
C 


40 AS 52 00 10$: MOVL R2,PBSL_SCSMSG(R3) Assign buffer to PB for SCS 


OQOQOOOOSCOOSSOSOCOCOCOOOOOOOOOOOOOOOOOOOOOOOO 
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SVS SP NNN ES OPA AWOODS OOO WOON A OO Wt 9 9 9 
i a ee ee a a ee ee ee a a a a a a 
©000909 09 09 69 G9 09 Cd Cd Gd Gd 09 Cd Od CD OD Cd CD GD CD GD CD GD OD CD OD OD CD OD AD CD G9 CD OD OD CD CD CD CD CD CD CD C9 0D C9 0D GY 09 GD OD CD CD OD CD CDCD 
WOOO O60 00. 09 09.09 69 69 G9 09 09 SI INNS SN DD DDD IDO TTI BEEP EEE 


FAN O OOD NOA NE WWIN OOD NAME WIN SO ODO NA NE WWIN OS ODNAU EW OOONOUE WO 
@ 
— 
@ 
mn 


D ; control messages sent 
FA2D* 30 D BSBW INTSALLOC_PPDDG ; Allocate a PPD dg buffer 
03 50 8 D :; Branch if got it 
0008 1 ° BRW ENTER_ERR1 ; Else go clean up 
54 a3 582 44 D 30$: MOVL R2,PBSL_CLSCKT_DG(R3) 3; Save addr of PPD 49 
FA20' 30 05D BSBW = INTSALLOC_MSG : Allocate a msg buffer for 
E ; SCS control ms9 receive 
03 50 8 E BLBS RO,40$ ; Branch if got i 
docB 31 E BRW ENTER_ERR2 : Else handle error 
FAI7" 30 E 40$: BSBW INTSINS MFREEQ ; Queue buffer to port 
50 30 A3 00 E MOVL PBSL_SBCINK(R3),RO ; Get addr of formative SB 
52 00000000‘ GF 1») E MOVAL 6G*SCS$GQ_CONFIG,R2 ; Get SB Listhead 
s+ he : MOVL R2,R1 ; Hold starting point 
: CMP_EXIST_SBS: 
_— € 00 F MOVL (R2),R2 ; Get next SB in List 
3. Ct«CS} D1 I CMPL P ; Back where we started? 
7 13 F BEQL MOVE _SB ; Branch if so, this system 
F 3; isn't here 
18 AO D1 F CMPL SBSB_SYSTEMID(RO),- 3; Check for system ID match 
18 Ag 8 SRse.SYSTERID (RE) 3; _on low 4 bytes 
0 12 BNEC $ : Branch if no match 
1¢ AO B61 a6 CMPW Prone oh tat oe bis ie 3; Check for system ID match 
1C A2 bs SESS_SVSTERID “ACR ) 3 
= & : BEQL $ ; Branch if matches 
33 AO BI op 50$: CMPW SBST_SWVERS*#1(RO),=- :; Is the Rgract ive system block 
2€33 8F 1 #*Aa/3./ for a V3.n system? 
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FE WWAWN AWAIT 2 ee 
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CHK_INCARN_ERR: 


PAAAAAAAA AAA ASO 
AAQDMIMANNAMU MMIII 


SOOOOOOSOOOOOOOOOOOSOSSoO 


CMP_EXIST_SBS 
#*M<RO,R1,R2,R3> 


3 
#16, SB$T_NODENAME (RO) ,- 


S88 f NODENAME (R2) 
58 


#°M<RO,R1,R2,R3> 
CMP_EX{ST. SBS 


#*M<RO,R1,R2,R3> 


3 
#16, SB$T_NODENAME (RO) ,- 


$f_NODENAME (R2) 
ENTER_ERR4 
#°M<RO,R1,R2,R3> 


SBSL_PBCONNX(R2) 
CHK_INCARN_ERR 


R2,#SCS$GA_LOCALSB 

DO. REFRESH 

SB$Q_SWINCARN(RO) ,- 

5B8$0 SWINCARN(R2) 
TER_ERR 


N 
SB$Q nd iene gy fi 


SBSOSUINGARNYG(R 
ENTER_ERR 


R3,SB$L_PBCONNX(R2) 


#*M<RO,R1,R2,R3,R4,R5> 


#UPDATE_LEN, - 
SBSB_SYSTEMID(RQ) .~ 
see SYSTEMID(R2) 


<RO,R1,R2,R3,R4,R5> 


DELETE_SB 


SBSQ_SUINCARN(RQ) , 
SBSQ- SWINCARN(R2) 
ENTER ERR 
BS$Q_SWINCARN+4(R 
SBSQ>SWINCARN#4 (R 
ENTER_ERR 


0) 
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Branch if so and bypass node name 
uniqueness test 

Save registers destroyed in CMPC 
Are node names the same? 


Page i) 


Branch if node names are same, 
but SYSIDs are not -- can't 
talk to this a because 
there is a configuration error 

Restore registers 

Continue searching existing SBs 


Save reg destroyed by cmpc 
Do the system's node names 


matc 
Continue if so 
Branch if not -- don't talk to 
this system 
Restore destroyed registers 
Does existing SB have paths? 
f so, go check for 
inconsistent incarnations 


Is this the local SB? 

Branch if not 

Else is the new incarnation the 
same as the old? 

Branch if not -- this must be 
a different host masquerading 
as us 


Set formative PB as first path 
to use for a connx in old SB 
Save regs destroyed by movc 
Update old SB with new 
B info 
: from start handshake dg 
Restore registers destroyed 
Go delete new SB and complete 
entering PB in database 


Is this the same incarnation of 
of the system we've already got? 

Branch if not because this means 
the system is really a different 
system with the same system | 


: This system already has an SB in the database. Delete formative 


PACONF IG 
v04-00 


Q0000000'GF 1 
0B 1 


-om 


52 50 00 
0481 62 O€ 
14 A2 53 00 


53 3 
10 B2 63 96 
06 


Q0000000'GF 16 


30 A3 3 dO 
i AS DE 

8A 
ne 

CA 
0112 C4 B6 
OC AS 00 
00 0134 (4 50 €5 
50 01 OC 
52 8ED0 
05 

52. 40 A3 

ath 
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DDD A PAA AAA AAA AAA AAAAAAAAA AO 
OO O09 000009 09 09 0909 G0 0008 SI SIN NNSNN 


PASO 
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geeeees 


L 9 


This system is new. Move the formative 


16-SEP-1984 01:14 
LISTS TO SYSTEM WIDE DATABASE 18-Sep-1984 94:18 
° 4 ; SB and insert formative pach block only 
; configuration database. RO has the add 
66 , 
re DELETE_SB: 
98 JSB G*COMSDRVDEALMEM : 
6 BRB MOVE _PB H 
67 
67 
67 


address of the formative SB. 


VFN OOONOUSs 


MOVE _SB: 
MOVL _—RO,R2 
INSQUE (R2),a4(R1) 
MOVL R3, SBSL_PBCONNX(R2) 


MOVE_PB: 


REMQUE (R3),R3 ; 
INSQUE (R3),@SB$L_PBBL (R2) : 
BNEQ 608 ; 


Give notification that the SB is new or 


R2 => SB 
RO,R1 need not be preserved 


JSB G*SCSSNEW_SB 


IPI III II III at et et tt a a a i i i kd hd dd 


SOSGOSGOOOS0O0O0 0000 OO 0000069 0909 09 69 69 09 09 SINISE NOAA 
CNOA AN 9 OD NAMES WIN (OOD NOUS WN 0 OONOULS WN OVOONO 


60$: 
MOVL  R2,PBSL_SBLINK(R3) : 
MOVAL PBSL_WATTQFL(R3),- ; 
PBSL-WAITOFL(R3) : 
MOVAL PBSLWAITOFL (RS) ,~ ; 
PBSL ~WAITQBL (R3) : 
INCW PDT$Q_PBCOUNT(R4) : 
MOVL PBSB_RSTATION(R3),RO : 
BBCC  RO,POT$B_PLOGMAP(R4) ,65$: 
65$:  MOVZWL #SS$_NORMAL,RO : 
ENTER_DONE : 
POPL = R2 : 
RSB : 
ENTER_ERR1: 
ENTER_ERR2: 
MOVL Past SCSMSG(R3) ,R2 
BSBW INTSDEAL_MSG 


configuration database and Link formative PB to it. 


; Branch if not 


3h AX/VMS Macro V04-00 
: DRIVER. SRCIJPACONFIG.MAR;2 


into ire system wide 
ess of the formative SB. 


Deallocate it to pool 
Join common PB move 


SB to the system wide 
RO has the 


Copy addr of formative SB 
Insert formative SB on tail of 
system configuration List 
Set formative PB as first 
path to use for a connection 


; Remove formative path block 


and Link to system block 
lock in List 


reused 


Note the new SB 


Save final SB addr in PB 
Set PB general wait queue 
to no entries 


Step count of PB's on this PDT 
Retrieve the remote port number 
Clear bit in error Logging mask 
corresponding to remote port number 
Set status = success 


Restore saved register 
eturn 


; Get addr of SCS send buffer 


and return to pool 


Page 
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B_PLOGMAP ( the 4), 


R5,R1 
sPhERSe Kees RSCKS,RO 


#*M<RO,R1,R2,R3> 


pos. CLSCKT_DG(R3) ,R2 


INTSALLOC_PPDDG 
RO,ENTER_BONE 


#<PPDSM_RSPa24>!- 
<PPD$C_SETCKTal6>,- 

Pass RSTATION(R3),- 
$6 PORT(R2 

aPPDsh cst 1 Peps. MASK (R25 


INTs! INS- Conan 


ONAAAE ERR EEE FS BWWWWWWIGIN NI INOPOPONONINONONION 2 ID 
WIR =O DONAUEWN OO ODNAUNE WO OONAUESWN OOO NOUL WT Oo 


SOQCoooooooooooooooooooooooooooooooooo 


yaniv Macro V04-00 Page 4 
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3 Join common error exit 


70$; 8B 


; Retrieve the remote port number 


ranch if remote port already logged 
Otherwise save 

Move known system SB address into R5 
Indicate that there is no packet 


Move remote PB address address into R3 


Set the appropriate error subtype 
Go log conflict 
Restore R5 


Remove queued SCS recv buffer 
Join rest of error handling 


Restore reg lost in node name 
comparison 
Join common cleanup 


Get the ateee sivoure dg addr 

Branch if got 

Else allocate 3 * buffer 

Branch if no pool <= this ve will 

fongte till somebody tries to use 
sending a connect request. 

At that time we have another chance 

to set it closed. 


Format the dg into a SETCKT 


and ask for vc state to be closed 
; Do it at high priority 


; Set status to failed 


; Go to exit routine 


<v 
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504 = BUILD_SB, BUILD A FORMATIVE SYSTEM BLO 18-SEP-1986 1:16:2 LORIVER. SRCIPACONF1G.MAR; 2 . (20) 
7 5 -SBTTL = BUILD_SB, BUILD A FORMATIVE SYSTEM BLOCK 


_5B allocates a system block from nongesed pool and sets 
it up with information from the received START or STACK datagram. 
ficient pool is available, then the routine returns failure. 


| 
eee. 


Inputs: 


a “Addr of START/STACK dg 
R “Addr of formative PB 
RG “Addr of PDT 


Outputs: 
RO -0/1 for fail/success 
R1 -Destroyed 
other registers -Preserved 


: Data structure adjacency assumptions: 


ASSUME SBSB_SYSTEMID+8 EQ SBSW_MAXDG 
MAXDG+ EQ SBSW_MAXMSG 


DOSSOSCOCOOCOOCOOOOOSOSOSOSOSOOOOOSOOOOOOOOOOSOOOOOOOOSOOOOOO 
OO O69 00 69 09 09 09 69 G9 09 09 SI NII NN NN AAA AA AAO 
NAME WR @ OC OONA UE WIN | O OONOULS WN OUOOnNIO 


ee > > > > > > > > > > > > P_ 
DSO. ODD OS DS DDD DDD DDD AAA A AAA AAA AA AAA AO 


: 
0 0 
0 
0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 BST 
0 085 ASSUME SBST_SWVERS+ EQ SB$Q_SWINCARN 
0 084 ASSUME SBS$Q_SWINCARN+8 EQ SBST_HWT 
8 085 ASSUME SBST_HWTYPE+4 EQ SBSB_HWVERS 
9 S ASSUME SBS$T_NODENAME+16 EQ SBSC_DDB 
0 088 ASSUME PPDSB_SYSTEMID+8 EQ PPDSW_MAXDG 
0 089 ASSUME PPDSW"MAXDG+2 EQ PPD$W_MAXMSG 
0 090 ASSUME PPDSW_MAXMSG+2 EQ PPDST_SWTYPE 
0 091 ASSUME PPDST_SWTYPE+4 EQ PPDST_SwV 
0 § ASSUME PPDST_SWVERS+4 EQ PPD$Q_SWINCARN 
8 ASSUME PPDSQ-SWINCARN+8 EQ PPDST HWTYP 
94 ASSUME PPDST"HWTYPE+4 EQ PPDS$B_AWVERS 
+54 ASSUME PPD$Q"NODENAME+8 EQ PPDSO_CURTIME 
0000002¢ 6 , DATA_LEN = <SBS$B_HWVERS+12> - <SBSB_SYSTEMID> 
099 -ENABL LSB 
Ht BUILD_SB: | 
sc BB 1 ; PUSHR #*M<R2,R3,R4,R5> ; Save a bunch of registers 
51 90000060 F 00 08 104 MOVL  #SBSK_CEWGTH,RI : Get size of SB | 
000000'GF 16 F 2105 JSB G*EXESALONONPAGED ; Allocate from nonpaged pool 
54 50 €9 O715 21 $ BLBC RO,SB_DON ; Branch if no pool 
08 ry, 51 BO 0718 21 MOVW ES a SIZE(R2) ; Set struct size 
0760 8F B60 Q71 1 3 MOVW #OYNSC SCS+<DYNSC_SCS_SB@8>,- ; Set structure type 
AA 7 1 SB$B_TYPE(R2) : and subtype 
CA DE 07 110 MOVAL SBSL_PBFL(R2),- : Set path block List head 
CA 7 111 SBSL_PBFL(R2) 3; to empty 


B 10 | 

16-SEP-1984 01:14: AX/VMS Macro V04-00 Page 46 | 

= BUILD_SB, BUILD A FORMATIVE SYSTEM BLO 18-SEP-1984 16:38 DRIVER. SRCIPACONFIG.MAR;2 > (20) 
DE 0727 MOVAL SBSL_PBEL (RZ) ,~ ; | 
(R2) 


#*A/ /,#8,- Compute # characters prior 

PPD$Q_NODENAME (R2) to blank fill 

SUBL3 RO,#87RO 

m (SP)+-R1 

MOVB RO, SB$T_NODENAME (R1) 

C SB$L_CSB(R1) 

MOVCS RO,PPD$Q_NODENAME(R2) ,- 
#0 #15, SBST_NODENAME*+4 (R 


in node name 
Retreive saved registers 
Set count of characters 


44 MOVL R2,RT ; Copy $B addr to R1 
D MOVL  (SP),R2 : Retreive dg addr | 
D0 MOVL 4 (SPS,R3 : and PB addr 
p09 MOVL  R1,PB$L_SBLINK(R3) : Link new SB to PB 
9 MOVB PPO$B_PROTOCOL(R2),- ; Save PPD protocol level in 
PBS$B_PROTOCOL (R3) : formative PB 
7D R1,-TSP) 3; Save regs destroyed by movc 
28 MOVC3 #DATA_LEN,- ; Copy system ID, dg and msg 
PPD$B SYSTEMID(R2),- : sizes, sw type, version, : 
5038 ST renietnt? 3; incarnation, HW type and version 
0 MOV (SPY AR : Retreive START/STACK dg addr 


; Zero Link to newest CSB. 
; Copy ASCII characters into 
1); counted string node name in SB | 


for Pd 
OKAOMYMOMNHS VP FS PUMP Pur yroruiy |S 
"WOO" OMOVOM ME WN MMroroery» 
So 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
21 
21 
1 
1 
1 
21 
$| 
1 
21 
21 


FE NWAANAWNWNIIPIPONPONINININDPINYINY 2 PP OO Oe 
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D4 CLRL ( 3; Zero Link to DDB chain for new SB 
3¢ MOVZWL #SS$_NORMAL RO ; Set status = success 
4 SB_DONE: 
3¢ = BAss«C0? POPR #*M<R2,R3,R4,R5> ; Restore registers | 
05 4 RSB 3; Return 
76 -DSABL LSB 
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ae 


C 10 
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= BREAK_PATH, INITIATE CRASH 10-SEP-1984 01:16:2 DRIVER.SRCJPACONF IG.MAR; 2 (21). 
76F 143 -SBTTL = BREAK_PATH, INITIATE CRASH 
76F 144 -SBTTL = OF VIRTUAL CIRCUIT 
76F 2145 -SBTTL = BREAK_HOST, HOST SHUTDOWN REC'D 
rer 5429 
Ore 148 : BREAK_PATH is the action routine called when a START is received 
76F 2149 ; on a VC we think is open. The START implies that the remote system 
O76F 2150 ; has crashed the VC and that we should do the same. Therefore, the 
O76F 2151 ; start datagram is discarded and ERRSCRASHVC is called to start 
BOF 13 ; the process of crashing the virtual circuit. 
Br er 154: BREAK_HOST is the action routine called when a host shutdown 
76F 2155 ; dg is received. It does the same as BREAK_PATH, but saves 
076F 138 ; a special reason code in the path block to be used later when 
Bree 13 3; notifying SYSAP's of the circuit failure. 
oe 3 Bory 
O76F 2161 ; Re “Addr of START/Host shutdown dg 
076F 166 3 R -Addr of PB 
Boer $107 3 RG “Addr of PDT 
Q76F ¢165 ; Outputs: 
O76F 2167 : RO-R2 -Destroyed 
O76F 2168 ; Other registers -Preserved 
Over 5190 
Boer 3171 -ENABL LSB 
ihe 3173 BREAK _HOST: 
028C 8F BO O76F 2175 MOVW #SS$_NOSUCHNODE ,- ; Save vce fail reason for 
46 A3 0773 2176 PBSW_VCFAIL_RSN(R3) ; later reporting to SYSAPs 
0775 2177 ; as the aux status 
Beoe 5178 BREAK_PATH: 
F888" 30 14a} 3180 BSBW INTSINS_DFREEQ1 : Return dg buffer to 
: _free queue 
51453, 00 778 3182 MOVL «RR S Iranster PB address 
F882° 31 aoe 137 BRW ERRSCRASHVC 3; Start crash of VC on its way 
O77E 2185 -DSABL LSB 
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PACONF 1G 16-SEP-1984 01:14:51 VAX/VMS Macro v04-00 Page 48 P 
vOe-004 ~ REC_ERROR_DG, LOG ERROR DG 1 3521 98e b1:16:33 LORIVER. SRCIPACONF1G.MAR; 2 : (22) vi 


-SBTTL = REC_ERROR_DG, LOG ERROR DG 


+ 


REC_ERROR_DG is the action routine called for an error log datagram 
PPD type. These are datagrams received from hosts that have minimal 
; error logging capability, do not have an scs connection over which 
to send an application datagram containing error info, and choose to 
; send the info in one of these ‘out of band’ datagrams instead. 


Inputs: 


Re “Address of start of dg 

i “Address of PB 
RG “Address of PDT 

Outputs: 


RO “Destroyed 
Other registers -Preserved 


.ENABL LSB | 
REC_ERROR_DG: | 
| 


BSBW ELOGSERROR_DG : Go log it 

MOVL PDT$L_UCBOTR4) ,RO ; Get UCB address 

DECW UCB$W~ERRCNT (RO) ; Decr error count incremented 
; _by error logger 

BRB IGNORE _DG ; Go recycle to dg free queue 


-DSABL LSB 


F87F* 
50 O0DC C4 
0082 CO 
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PACONE 1G 1o-560-19 4 Ot 1635 AX/VMS Macro V04-00 Page 49 
v04-00 - IGNORE_DG, DISCARD DATAGRAM WITHOUT A 10-SEP-1984 01:16:23 CDRIVER.SRCJPACONFIG.MAR;2 (23) | 
0 -SBTTL = IGNORE_DG, DISCARD DATAGRAM WITHOUT ACTION | 


Oooo 
VN 


+ 
IGNORE_DG is the action routine called for received start handshake datagrams 


rH 

ree $558 
Be 2a | 0S Bebe ecient ss Neher styles poforees. oe Sovoeren @ eoverved 

78¢ ; 

f : 5 : Inputs: | 

: $ R2 “Addr of handshake dg | 
8 : 1 : Outputs: | 
078C¢ g ; RO Destroyed | 
078C 4 ; Other registers -Preserved 
' ia 
gree $ -ENABL LSB | 
i443 i3 IGNORE _DG: | 

F871" 31 14 45 334, BRw INTSINS_DFREEQ1 ; Return dg to free queue | 

078F ak -DSABL LSB 


50. = 14 A2 
00000000 ' GF 
FE AO 01 
00000000 ' GF 
0534056 8F 


0000000 * GF 
0000002C ' GF 


0 
‘EF 


: GF 
008 ' GF 

46 
00000000 ' GF 


ww 
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MEW O OONA UE WN - OOOND 
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QQVQVQVq_Vq_Vq___ NN 
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Q 
0 
0 
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0 
0 
0 
0 
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0 
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0 
0 
0 
0 
0 
0 
0 
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; 


Outputs: 


RO,R1 
other registers 


ASSUME 
- ENABL 


FMT_START_DATA: 


-DSABL 


F 10 


1 
1 
UTILITY RO 
° FM 


* FMT_START_DATA fills in the start data in a 
Data is drqwn from sysgen paramters, SCS global locations, the 
system ID register, and constants. 


“Addr of Sategren 
of PB 


-Addr 


“addr of PDT 


E Seeenge format adjacency assumptions: 


PPDSB_SYSTEMID+6 EQ PPDSB at ee 


PPD$B-PROTOCOL+2 EQ PPD$W 
Q PPDSW 


a 

> 
n 
oO 
~ 
a 
a 
@ 
m 
=z 
_— 

Dion 


#°A/VMS ;, (RO)+ 
G*SYS$GQ_VERSION, (RO)+ 
G*SCS$GA~LOCALSB+ 

BS SMIACARN, (RO) + 
WTYPE tno) 


$GB~ CRO) + 
$GB"NODENAME , (RO) + 
$ (RO) + 


S 
I 
G 
: 
G GO"SYSTIME,(R 


o V04-00 
PACONF IG.MAR;2 


S 
RT_DATA, FORMAT START DATA IN A 
START/STACK DATAGRAM 


STACK or START datagram. 


“Destroyed 
-Preserved 


Get system a}, Siete addr 
rotocol rev supported 
msg application data 


Set operating system name 
Set operating system version 


; Set system boot een # 
3 processor name 
y CPU dete (hardware/ ucode 


itt node name, blank filled 
Set current system time 


| G 10 
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16- 4 01 cro V04-00 Page 
v04-00 = CLEANUP, REMOVE FORMATIVE PB AND SB 18-S6-19b¢ OF 1638 DRIVER. SRCJPACONF IG.MAR;2 . 3 
pe ? -SBTTL = CLEANUP, REMOVE FORMATIVE PB AND SB 
7DE 5 3+ 
70E § ; CLEANUP is called by the ACTION_DISP routine when fail status 
7DE ; has been returned by an action routine. The action routine 
7DE 3 3; detecting fhe error is expected to perform all cleanup other 
7DE 3 than delet ng the formative path block and system block. CLEANUP 
7DE 3; deletes the formative system block (if any) and formative 
7DE 11 ; path block. The start handshake is simply abandoned to be 
pe \§ ; restarted by a new IDREC Later. 
a4: 1 ; Inputs: 
O7DE 1g : R3 “Addr of formative PB 
1443 1 3 R4 “Addr of PDT 
Bape 19 : Outputs: 
O7DE 1; RO : “Destroyed 
4 3 § 3 other registers -Preserved 
woe $854 * 
O70e 5 -ENABL LSB 
BoE ; CLEANUP: 
50 30 A3 400 OPE 3 9 MOVL PBSL_SBLINK(R3) ,RO ; Get addr of formative SB 
02 13 O7E2 0 BEQL 10$ : Branch if none 
11. «10 1493 1 BSBB CLEAN2 3; Else deallocate SB 
Oc A3 E5 Sree § 10$: BBCC PBS$B_RSTATION(R3),=- ; Mark no PB in path map 
00 0114 C4 O7E9 4 PDT$B_PORTMAP(R4),20$ 
019A C4 B7 O7ED 5 20$:  DECW  PDT$WISTDGUSED(R4S : Decr count of # ports Likely 
QO7F 1 : 3 to send IDREC's and need 
Boe ' 3; start handshake 
011D 30 O7F1 2338 BSBW LB_ENABLE : Enable loopback dg's if necessary 
50 63 OF pere 50 REMQUE (R3),RO : Remove PB from formative List 
00000000 ' GF 16 bere 41 CLEAN2: JSB G*COMSDRVDEALMEM ; Deallocate PB 
05 gree 34¢ RSB 3; Return 
O7FE 2344 -DSABL LSB 
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PACONF IG 16-SEP-1984 01:14: AX/VMS Macro v04-00 Page 52 
YOseoDt = SEARCH_PATHS, SEARCH FOR PB WITH STATI 19-36-1382 1:16: 3 DRIVER. SRCJPACONF IG.MAR;2 . (38) | 
Hf rh -SBTTL = SEARCH_PATHS, SEARCH FOR PB WITH STATION ADDR MATCH 
7F 48 ; 
7F t8 i* : SEARCH_PATHS searches a doubly Linked List of PB's for the first 
7FE 9 ; PB with station address matching a specified station address. The 
7FE 3 match is done only on the low order 8 bits of station address since 
ore gi 3: Cl station addresses are known to fit in 8 bits. 
7FE 4 Inputs: 
7FE 2? 3 ¥ 
7FE § ; R14 “Station address to match 
ore ; : R3 “Addr of PB Listhead 
7FE  : : Outputs: 
7FE 60 ; 
O7FE 61 ; RO -0/1 for fail/success on search 
fad $¢ 3 R3 -PB address if success 
7FE 6 = other registers -Preserved 
Bere 64 ;- 
7FE 65 
O7FE 4] -ENABL LSB 
O7FE 6 
O7FE 2368 SEARCH_PATHS: 
gore 69 
6 Ft aire oy MOVL R3,R0 ; Hold start point 
0801 ie SEARCH_CONT: 
0801 7 
53 $3 DO 0801 74 MOVL (R3) ,R3 3; Get next PB 
50 53) «01 «(0804 «2375 CMPL = R3, RO : Back at start? 
OA 13 0807 76 BEQL 3; Branch if so 
51 OC Ad 91 0809 77 CMPB PBS$B_RSTATION(R3),R1 3 Low byte matches? 
F2 12 080D 78 BNEQ SEARTH_CONT ; Branch if not 
50 3¢ OF 79 MOVZWL #SS$_NORMAL ,RO ; Else return success 
05 : + RSB 3; Return 
50 D4 + 386 20$: CLRL RO 3; Status = fail 
05 1 RSB 3; Return 
0816 84 
0816 85 .DSABL LSB 
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16=SEP=1984 01:14:51 YAX/VMS Macro V04-00 Page 53 
- CNFSLKP_PB_MSG, LOOK UP THE PB CORRESP 18-Sep-1984 1316333 DRIVER. SRCIJPACONF IG.MAR; 2 . 3?) 
7 -SBTTL - CNFSLKP_PB_MSG, LOOK UP THE PB CORRESPONDING 
8 -SBTTL = TO A PDT AND REMOTE STATION ADDR 
;* 
2 ; CNFSLKP_PB_MSG extracts the remote station addr from a received message 
; and looks Ehrough the system wide configuration database for the 
95 ; orrexponding to the remote station and PDT. Only the low order 


PB ‘ 
94; 8 bits of the Patton address are matched since CI station addresses 
95 ; always fit in 8 bits. 


‘Co Cd Cd Cd Gd Cd Od 00 OD CD Cd C9. CD CD CO CD GV. CDCD OD 
= 


96 ; 

97 ; Inputs: 

38 3 

99; R2 “Addr of message 

601 5 RG “Addr of PDT 

4 : Outputs: 

108 

404 ;: RO -0/1 for fail/success on search 
405 ; R1 -PB addr if success 

$38 3 Other registers -Preserved 


-ENABL LSB 

CNFSLKP_PB_MSG2:: 
SUBL3 PDTSL_MSGHDRSZ(R4),R2,R1; Back up to top of PPD Layer 
MOVZBL ; 


51 52 0084 C4 C3 
OC Al a tesa ; Get remote station addr 


51 
04 
CNFSLKP_PB_MSG: : 
MOVZBL PPDS$B_PORT(R2).R1 


51 OC A2 9A Get remote station addr 


55 OD 5$: PUSHL R5 ; Save a couple of registers 
53 OD PUSHL R3 : 
55 O00000000'GF DE MOVAL G*SCS$GQ_CONFIG,R5 ; Get addr of Listhead for system 


configuration database 


NE EB PNMOOE BD PPM DB BDA ANMUINININ ON HAAAAAAAAAASA AAA AAA AAA AOAOAOAS 
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r 
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55 65 00 10$: MOVL (R5) ,R5 ; Get next system block 
00000000°BF 55° 1 R5,#SCS$GQ_CONFIG ; Back at start of list? 
5 me BEQL PB_N ; Branch if so 
53 OC AS oF MOVAL SBSL_PBFL(RS),R3 ; Get addr of PB Listhead 
BB r BSBB SEARCH_PATHS ; See if there is matching station 
B 0 E9 4 208: BLBC RO,10$ ; Branch if no matching station 
54 CA D1 4 CMPL PBSL_PDT(R3) .R4 ; Is this path block a path from 
4 3; _the same PDT? 
08 13 4 BEQL PB_ FOUND ; Branch if yes , 
50 OCA oF 4 MOVAL SBSL_PBFL(RS),RO ; Else set up PB Listhead addr again 
AF 1 5 BSBB ARTH_CONT ; Continue PB search 
oe é BRB ; and check results 
5 PB_F OUND 
51 53 00 MOVL R3,R1 ; Move PB addr to R1 


J 10 
PACONF 1G 
v04=-00 - TO A PDT AND REMOTE STATION ADDR 
53 ED 7 3446 308: POPL R3 
ED A 264 POPL = R 
D 244 RSB 
E 264 
E 448 PB_NOT FOUND: 
SE 244 
50 7¢ OBSE 2450 CLRQ = RO 
FS 11 «(0860 «2451 BRB 308 
4 438 
62 245 -DSABL LSB 
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16-SEB-1986 1: 16:3] AX/VMS Macro V04-00 Page ty | 


DRIVER. SRCJPACONFIG.MAR;2 
Retreiye caller's R3 
and R 


; Return 


Show failure status 
Join common exit 


«cw | 
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PACONF IG 16-SEP-1984 01:14: AX/VMS Macro v04-00 Pa 5 | 
v04-00 = CNFSLKP_PB_PDT, LOOK UP FIRST/NEXT 18-s5p-19 4 1:1¢:34 DRIVER.SRCIJPACONF IG.MAR;2 ” a) 


5 -SBTTL = CNFSLKP_PB_PDT, LOOK UP FIRST/NEXT 
§ -SBTTL = PB ASSOC WITH PDT 


+ 


CNFSLKP_PB_PDT Looks through the configuration database for PB's 
associated with a specified PDT. for each one cone, the caller is 
e 


6 4 
? 4 
tt 
He 
6 46 : called back with the PB address in R3. When the whole database has 
? rh) ; been searched, return is taken to the caller with failure status in RO. 
6 464 : This routine is called eyr'ing gover failure to cleanup PB's and SB's 
86 465 ; associated with the local failing port. Therefore, when a PB is 
6 138 3 delivered to the caller, the PB and its SB ney have been deleted 
6 467 ; upon return from the coroutine. The forward Links to the next PB and 
6 rh 3 next SB in the configuration database will be destroyed in this case. 
6 rf 3; Whenever an SB is be ng processed, the Link to the next SB is saved on 
86 470 ; the stack. When a PB is about to be delivered to the coroutine, the 
86 471 ; Link to the next PB is saved on the stack ‘and, upon return, the saved 
$e 158 3; link used as the address of the next PB to Look at. 
Oae toe : Inputs: 
086 476 ; R4 -PDT addr 
086 478 : Outputs: 
Sb ret : RO “Status: LBS/C if PB found/not found 
086 481 ; R3 -PB addr if success 
086 4 ¢ 3 R1,R2 -Destroyed 
086 485 ; Other registers -Preserved 
Opes 5c8s * 
086 $36 ASSUME PBSL_FLINK EQ 0 
Bae rt 14 ASSUME SBSL_FLINK EQ 0 
Ope $33 -ENABL LSB 
O86 $3) CNFSLKP_PB_POT: : 
52 O0000000'°GF ODE 3 198 MOVAL G*SCS$GQ_CONFIG,R2 : Get configuration database ptr 
52 62 00 OB6¢ rh MOVL (R2) ,R2 ; Get next system blk 
00C00000'S8F 52 O01 bs 496 10$: CMPL R2,#SCS$GQ_CONF IG ; Back at header? 
20 «13 49 BEQL § NOT FOUND ; Branch 0 
6 DD 7 49 PUSHL (R2 ; Save link to next SB 
53 OCA 43 7 49 MOVAL He PBFL(R2),R3 : Get PB List header 
51 5§ D ze 230 MOVL R3,RT 3; Save listhead addr 
53 63 00 ff 2 § 20$: MOVL (R3),R3 3; Get next PB 
yn 6 OS D1 1 4 308: CMPL R3,R1 ; Back at start of list? 
1 13 4 5 BEQL NEXT_SB ; Branch if so -= move to next SB 
54 2C Ad 01 6 $ CMPL PBSL_PDT(R3) ,R4 : Is PB on this PDT? 
Fe 12 A BNEQ : Branch if not 
50 O01 3C C 8 MOVZWL #SS$_NORMAL ,RO ; Set success status for caller 
F 3; coroutine 
3 «6D F 10 PUSHL (R3) 3; Save Link to next PB 
6 6B 1 11 PUSHR #*M<R1,R2> ; Save registers caller destroys 
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Retreive a at of next PB 


ies SEP=1984 t Ot:] $334 ve Macro Vv04-00 Page 5 
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BRB 30$ Check next Pi 
NEXT_SB: 
POPL Re 3; Retreive addr of next SB 
BR 10$ 3; Check next SB 
A NOT_FOUND: 
50 D4 A CLRL RO ; Set fail status for caller coroutine 
05 - RSB 3; Return to calle 
A 


-DSABL LSB 
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| 


PACONF IG 16-SEP-1984 01:14: AX/VMS Macro V04-00 Pa 57 | 
voe-001 = CNFSREMOVE_PB, REMOVE PB(SB) FROM 18-Sep-1984 1:16:33 EORIVER. SRCIPACONF1G.MAR; 2 a (29) | 
-SBTTL = CNFSREMOVE_PB, REMOVE PB(SB) FROM 
-SBTTL = CONFIG DATABASE 


+ 


, 
CNFSREMOVE_PB is called by ERRSVCCLOSED_MSG/PB or ERRSVC_CACHECLR 

when all connections associated with a failing path block have 

been cleaned up. CNFSREMOVE_PB marks the remote port as unknown in 

the port bitmap. If this is a virutal circuit failure due to reasons 


other than local port/systes pre failure, then the path block SCS 
receive buffer and, if available, the SCS send buffer, are reclaimed from 


>>>r>rrrrrr>r 


FEEDS SF BD DGPS PVSPVSVSUSUSUSVUSUSUSU SUS USUSISUSU SUSU IOSISISISIASIUSIASIOSIOSIOSIOSIOS 


; the message free queve and returned to pool. In the case of a power 
failure this step is omitted because all queue elements for all 
paths on the local port are collected together later. 


Finally, the path block is unlinked from the system block. If this 
leaves the SB with no paths, then the SB Link to the next PB to 
use in a connection is zeroed. The PB is returned to pool and return taken. 


4 
5 
; 
$33 
A 3 
A 4 
8 A 54 
A 544 
- 545 
A 278 
8A 54 
8A 548 ; Inputs: 
O8A 549 
pea 550 IPL “Fork IPL 
BA 551 
O8A 236 
O8A 55 -PDT addr 
O8A 554 
BBA 555 ; Outputs: 
8A 228 
OBA 55 RO-R2 -Destroyed 
O8A 558 Other registers -Preserved 
08A 559 :- 
O8A 560 
08A 561 -ENABL LSB 
08A 266 
BaA 207 CNF SREMOVE _PB: : 
34 AS DS OBA 565 TSTL PBSL_CDTLST(R3) ; Verify no CDT's remain 
03 13 O8A 266 BEQL ; Branch if none do 
FAI8 = 31 Bea 267 BRW CONF IG_ERR ; Else inconsistent database 
Oc Ad” sCESS OBA 569 10$: BBCC PBS$B_RSTATION(R3),- ; Mark the remote port unknown 
00 0114 C4 4 TA PDTSB_PORTMAP(R4),20$ ; to poller 
019A C4 B7 088 276 20$: DECW PDT$W_STDGUSED(R4) ; Decr Mports that will Likely 
; 27 3 _send us IDREC's for a while 
056 30 74 BSBW LB ENABLE 3 Enable loopback dg's if necessary 
0112 ¢4 «iB 575 DECW POT$SW_PBCOUNT(R4) 3; Decr count of PB's on this POT 
12 A361 é 276 CMPW PBSW_STATE(R3),- ; Is this a power fail recovery? 
4000 8F C2 257 #PBSC_PWR_FAIL ; 
1 1 C 278 BEQL 4 3; Branch if so 
52 GOA D C 7 MOVL EB SL _SCSMSG(RS) RZ i Else ge SCS send buffer 
1 cB 0 BNEQ 30$ : Branch if available 
F730" 3 C 1 BSBW JNTSAFQ2POOL : If unavailable, get it from 
8 1D D § BVS 0s 3; message free queue 
11 3 ? BRB 35$ | 
F729° Hi D4 5 305 BSBW pelb ads! MSG : Deallocate to pool | 
F726' D7? 2586 35$ BSBW INTSMFQ2POOL ; Get SCS receive buffer from free q | 
| 
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REMQUE 
BNEQ 
CLRL 


MOVL 
BRW 


-DSABL 
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18-SEP-1986 Bt: 16 


PRS .CLSCKT_DG(R3) ,R2 : 
45$ : 


INTSDEAL_DG1 


PBSL o SOL INK (RS 


) 
SB$L~PBCONNX(ROS , 


46$ 
PBSL_FLINK(R3) ,- 
SB$L~PBCONNX (RO) 
(R3),R3 
SBS$L_PBCONNX(RO) 
R3,RO 

CLEAN2 

LSB 


RO 
R 


6:35 EDRIVER.SRESPACONFiG.MaR:2 "°° (38) 


get CLSERT oe 7 addr 
Branch 


3; Else return. to pool 


3 


Get addr of this path's SB 
Is SB ptr to next PB to use for 
a connect - "| we are removing? 
Branch if n 
Else petch HS to point to 
next path if any 


Remove PB from PB List 
Branch if not last PB 
Zero Link to next connx to use 


copy PB addr for deallocation 
Deallocate PB to pool 
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PACONF IG 16-SEP-1984 01:14:5 AX/VMS Macro v04-00 P 9 
v04-001 - SNDDG_RET, SEND DG, RETURN BUFFER 10-SEP-1984 gt: 16:38 DRIVER. SRCJPACONFIG.MAR;2 ~ (30), 
FF 60 -SBTTL = SNDDG_RET, SEND DG, RETURN BUFFER 
FF $09 ‘SBTTL = ’ TO RESPON 
FF 610 -SBTTL = SNDDG_NORET, SEND 0G, RETURN BUFFER 
FF 611 -SBTTL = TO FREE QUEUE 
rf 18 4 
FF 2614 ; The datagram is put on the low priority command queue with 
8 Tt oi? : the response flag set/clear for the SEND_RET/NORET call. 
0 a i : Inputs: | 
FF 2619 : R “A | 
OBFE 5620 : Rg aan 
baer ? 1 ; “Addr a PDT 
pare ° 5 : Outputs: 
O8FF 2625 ; RO “Destroyed 
O8FF 26 § ; Other registers -Preserved | 
OBE 3s 8 ay | 
O8FF 26 -ENABL LSB 
O8FF 2630 
baer $03) SNDDG_RET 
51 53 DO OB8FF $03 MOVL R3,R1 : Transfer PB address 
50 02 dO Bape $638 MOVL #SYSAP$C_DISPPO,RO 3 RETFLAG=TRUE, DISP=POOL 
F6F8* 31 4944 $03 BRW INTSSNDDG1 : Send it 
0908 2637 SNDDG_NORET | 
51 53 dO 0908 2639 MOVL R3,R1 : Transfer ’8 address 
50 00 DO 0908 2640 MOVL #SYSAP$C_DISPQ,RO ; RETFLAG=FALSE 
FOEF* 31 43 $00) BRw INTSSNDDG1 3; Send it 
O911 5668 .DSABL LSB | 
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PACONF 1G 16-SEP-1986 01:14:51 YAX/VMS Macro v04-00 Page 60 
/VOe-001 = LB_ENABLE, ENABLE LB DG SENDS 18-Sep-1986 01:16:25 EDRIVER.SREIPACONFaG.MAR:2 29 (9) 
-SBTTL = LB_ENABLE, ENABLE LB DG SENDS i | 
‘SBTTL = IF SSARY | 


+ 

Called whenever a virtual circuit is lost to check and see if 
there are now no remote ports known besides self. (Known means 
virtual circuits open or formative en pe If there are no remote 
orts known besides self, then the loopback dg test is enabled. 
therwise, the loopback test flag is left alone. 


911 2645 
911 $68 
911 264 
911 968 3 
0911 2649 ; 
911 029 ; 
911 2651 ; 
911 $26 H 
911 2653 ; 
0911 2654 ; 
0911 2655 ; Inputs: 
gat $26 Hy | 
911 2657 ; R4 -PDT addr 
0911 2658 ; PDT$B_PORTMAP(R4) -32 byte bit map of known ports 
0911 2659 : PDT$B~PORT_NUM(R4) -# of local port 
0911 2660 ; 
0911 2661 ; Outputs: | 
0911 666 ; 
0911 26635 ; RO , “Destroyed 
0911 2664 ; Other registers -Preserved 
0911 2665 ; PDT$W_LPORT_STS -PDT$M_LBDG set if no other 
0911 2666 ; ports known; else unchanged 
0911 2667 ;- 
0911 2668 
0911 2669 -ENABL LSB 
0911 2670 
0911 2671 LB_ENABLE: 
0911 ore 
7E 51 47D 0911 267 mMOVa R1,-(SP) ; Save two registers for caller 
52 04 Bale ore CLRL R2 ; Zero count of # bytes in map 
>» FR & bai8 e76 10$: MNEGL #1,R1 ; Init prev known port #, modulo 32 
51 D6 0919 2678 208: INCL R1 ; Incr prev known port #, mod 32 
20 51 #£4EA 0918 2679 FFS R1,432,- 3 Find next known port, mod 32 
51 0114 C442 oie 680 PDT$B_PORTMAP(R4)CR2].R1; in this longwd of port map 
10 13 09 681 BEQL 40$ ; Branch if none found 
50 52 08 78 0925 oes ASHL #32/4,R2,R0 ; Convert port # mod 32 to | 
51 50 CO 0929 268 ADOL RO,R1 3; actual port number 
0170 C46 «651 91 —092C )=—2684 CMPB R1,PDT$B_PORT_NUM(R4) ; Is known port = self? 
E6 13 0931 2685 BEQL e0$ ; Branch if so to search more - | 
OD 11 Ose O88 BRB 0$ ; Else return without doing anything 
52 96 co O333 tt; 40$: ADDL #4,R 3: Step offset in port map to next lLongwd 
20 2 D1 0938 2689 CMPL R2,#52 ; Past last longwd in map? 
09 «O«IF 0938 690 BLSSu 108 : Branch if not 
A8 8 D 2691 BISwW #PDTS$M_LBDG,- 3; Else no port other than 
0110 C4 So 7e 636 POT$wW_CPORT_STS(R4) ; self known, so enable LB dgs 
51 8E& 7D $9 694 50$: MOVQ (SP)+,R1 ; Restore caller's registers 
05 094 695 RSB ; Return 
0946 2696 
0946 2697 -DSABL LSB 
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- CHECK_PORT_REV, CHECK PORT 18-sEP-19 4 OF 16:35 LORIVER. SREIPACONF12-MAR: 2 " (%) s 
946 $99 -SBTTL - CHECK_PORT_REV, CHECK PORT R 

946 0 -SBTTL = UCODE REV LEVEL R 

946 2701 S 

946 27 ¢ 3+ Ss 

946 2705 ; Given and IDREC packet, check the port RAM and ROM rev levels $ 

946 2704 ; to make sure they are adequate. If not, log an error, print a S 

Race 5 ; message on OPAO, and (for now) continue. : 

0946 27 3 3; The algorithm for checking is to look up the ROM/RAM Level read | S 

946 2708 ; from the ID in a table of legal ROM/REAM combinations. If it isn't S 

946 2709 ; in the table, then check to see if either the ROM or RAM Level $ 

b3¢ 710 ; exceeds the maximum the table knows about. If either exceeds $s 

94 711 ; the maximum in the table. If either exceeds the max, do no S$ 

0946 ie 3; futher checking on the assumption that new ucode is being run S$ 

0946 27135 ; that VMS hasn't been taught to judge. If neither exceeds the Ss 

Bare at} ; max, then the ucode fails the test. : 

0946 £18 ; If the rev level is found in the legal table, then check the Ss 

0946 2717 ; cautionary rev table to see if we should print a warning before Ss 

0946 2718 ; continuing. A flag is set in the cautionary table for rev's $ 

0946 2719 ; which are known to have problems, but which have not yet been Ss 

0946 2720 ; replaced by the fixed ucode in the field yet. The cautionary S 

0946 2721 ; message on OPAO alerts customers to ask field service to install S 

aaie rig Maes oval 
0946 152 : To add new set rev combinations to the table, patch or extend $s 

0946 si 5 ; LEGAL_REV_TABLE with the new legal combination(s), and patch S 

0946 2726 ; MAX_RAM/ROM_REV. S 
0946 2727 ; Ss 

0946 2728 ; Inputs: S 

0946 2729 ; Ss 
0946 2730 ; R2 “Addr of IDREC packet S 
0946 2731 ; RG -PDT addr S$ 
0946 136 3 Ss 
0946 2733 ; Outputs: Ss 
0946 2734 ; | Ss 
0946 Hee $ RO : “Destroyed S| 
0946 2736 ; Other registers -Preserved S| 

0946 2737 ;- Ss 

0946 2738 S 
0946 2739 LEGAL_REV_TABLE: S 
0946 2740 S 

0946 2741 ; WORD n,m = RAM/ROM Level S 

946 re S 

0002 000 946 274 - WORD ¢°8 :; Current as of June, 1984 $ 
0003 0005 094A 2744 » WORD ° ; Next rev known to need fixes S 
094E 2745 ; _in both RAM and ROM S$ 

0000 0000 O05 74 -WORD 0,0 ; Patch space for future revs S$ 
0000 0000 0386 re «WORD 0,0 $ 
00000004 44 Sys REV_TABLE_SIZ = <.= LEGAL_REV_TABLE>/4 ; 
956 731 CAUTION_REV: S 

956 27 $ . S 

956 27 ; .BYTE nonzero/0 for caution/ Ss 

956 2754 3 caution message needed S 

00 0956 2755 -BYTE 0 : Rev 2,2 == no Caution S 


0080 C5 
F66D° 


51 CO AF 
6140 


F661" 


32 


0003 


0003 


@Oo- @r"-—oco gvoV7 
*+o,r - PP FU Smow 


wow 
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UCODE REV LEVEL 


OOCOQOOoooOoooooooooo0o 
WOOOWOVOOOVOOOVOVOOVOOOOOO 
reat oak wal val wal ab al Ab ah Ab Ah Ab Ab Ab ah ab aha al 
MOMMMMMMNOOOOY > > FP OMO~ 


—~“ 
wr 
NO 
* 
@mo 

<<< 
Salen ion! 
mmen 


MAX_RAM_REV: 
«WORD 

MAX _ROM_REV: 
«WORD 


10$: CMPL 


QQ 


$O30. 09.09 09 09 09.09.09 09 09 09 SI NININININI NN NINIA AAP AAAAOOUIN 
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= 
o 
oa 
> 
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4 
795 MOVAL 
796 TST 
797 BEQL 
798 BSBW 
799 
: , REV_OK 

0 POPR 
803 RSB 
804 
805 -DSASL 


ENABL 
CHECK_PORT_REV: 


LSB 


#*M<RO,R4RS> 
PDTS$L_UCBO(R4) ,RS 
LEGAL 


71 
:16 


REV_TABLE,R1 


(R1)+,PPDSL “ei seciahane 


CHECK_CAUTIO 


WREV_TABLE_SIZ,R0,10$ 
REV+2(R2),= 


PPDSC_RPOR 


T 
MAX_RAM_REV™ 


V"OK 
PPDSL_RPORT_REV(R2),- 


MAX_ROM_REV 
REV-OK 
ELOGSUCODE_ERR 
INISPORT_REV 


U 


CBSB_ERTCNT(RS) 
ERR 


SCRASH_PORT 
CAUTION REV,R1 
(R1) CROJ 

REV_OK 
ELOGSUCODE _WARN 


#*M<R1,R4,R5> 


LSB 


4: 
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Rev 3,3 == no caution 
Future revs... 


Max RAM Level in table 


Max ROM Level in table 


Save caller's registers — 

Get UCB in case error Logging needed 
Get addr of legal rev table 

Zero index into table 


:; Is rev being checked in table? 
Branch if so 

Branch if not, continue check 

Is RAM Level bigger than we know about? 


Branch if so 
Is ROM Level bigger than we know about? 


Branch if so 

Log prcblem 

Clear port rev a flag to force 
more informative UCODEREV bugcheck 
if a bugcheck is done — 

Take away all port's retries 

Go crash port permanently 


Get addr of table of caution flags 

Rev legal, check if caution msg needed 
Branch if completely okay 

Log warning 


Restore caller's registers 
Return. 


alt 
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9A -SBTTL CNFSTIMER, PERIODIC WAKEUP ROUTINE 

aA -SBTTL CNFSCALCINTDUE, RESET WAKEUP DUE TIME 

9A 3+ 

9A ; CNFSTIMER is called from exec module TIMESCHDL once per n | 

9A 3 seconds, where n is the basic CI interval timeout. imer 

9A : intervals are specifed in SYSGEN as follows: 

pA Parameter name Units Variable name 

9A PASIMTOUT seconds (2, 2°15-1) SCS$GW_PASTMOUT 

9A PAPOLLINTERVAL seconds (2, 2*15-1) SCS$GW_PAPOL INT 

9A PAPOOL_INTERVAL seconds (2, 2*15-1) SCS$GW_PAPOOLIN 

Note that if the poller interval and pool checking interval are not 


exact multiples of the basic interval, then they will be effecitvely 
rounded up to the nearest multiple of the basic interval. The basic 
interval is equal to the start handshake timeout interval. 


Ooooeo 
ooovono 
>>>>>y 
SH PANNA WIN NINIELAIRPOPIPONPINPONOPPUDN OO OS SS OOOO 


4 
0 
; 
4 
09A : 5 
gph § Inputs: 
9A H 8 R3 “Addr of CRB 
O9A2 2829 IPL -IPL$_POWER 
O9A 830 
BOA : 1 ; Outputs: 
O9A 8 5 IPL -IPL$_SCS 
O9A 834 RO-R2,R4,R5 -Destroyed | 
BoA 835 Other registers -Preserved | 
O9A H $ Entry CNFSCALCINTDUE souputes the due time for the next basic interval wakeup. 
Q9A 8 8 It expects as inputs R3/CRB, R4/PDT and destroys RO. 
O9Ad 820 | 
O9A2 2841 | 
Bea 8 § -ENABL LSB 
RA bis CNFSTIMER:: | 
54 10A3 DO OQ9A 348 MOVL CRBSL_AUXSTRUC(R3),R4 ; Get PDT address | 
01 ig 9A 4 BNEQ 5$ : Branch if there is a PDT 
0 9A 48 $B : Else port init aborted, can't 
ys $3 ; use port 
55 O00DC C4 D0 O9A9 29 5$ MOVL POTSL_UCBO(R4) ,R5 ; Get UCB address : 
4 EO O9A 26 BBS #UCBS0_ONLINE,- ; Branch if controller/unit is 
03 64 AS #0) 5 UCBSW_STS(R5),CONT_POLL ; on Line tnt 
OOA7 31 098 54 BRW CNFSCALCINTDUE ; Else bypass poller and other activity 
44 22 3: and compute next wakeup time 
+4 3? CONT_POLL: 
0104 D4 «=601)=—s 0 s« 0986 35 MOVL #1, aPDTSL_MTC(R4) ; Poke the maint timer in the 
968 60 3 port to tell it we are alive 
988 61 SETIPL #IPL$_SCS ; Lower IPL for rest of polling, etc. 
53 dD 098 6 PUSHL : Save CRB address 
53 0174 C4 DE O09C 6 MOVAL PDT$Q_FORMPB(R4) ,R ; Get formative sthead addr 
5 $ 3 f i PB Listhead add 
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5 D 9C 4 PUSHL R3 ; _and save opy 
53 FY Dd 44 és MOVL (R3),R3 ; Get addr of ? ise. t entry in PB List 
3a $ SCAN_FORMPB: 
6— 53 » SCA $3 CMPL R3, (SP) 3; Back at atere of list? 
if 13 09CD 0 BEQL FORM_PB_DONE : Branch if s 
55 63 00 O9CF 71 MOVL (R3),R 3; Save addr of next PB in 
90 3; _case this one goes. deleted 
0 —1 $09 7 BBC #PBSV_TIM,- 3; Branch if no $tieeu 
12 44 nS 9D 74 PBSW_STS(R3) 108 : is in progre 
356A D1 907 75 CMPL PBSL_DUETIME(R3),- : Pessed this PBs duet ime? 
00000000 ' GF ODA ud: GPEXESGL_ABSTIM : 
1A O9DF ? BGT 0$ ; Branch if not 
51 oat F - $5 E1 78 ROVZUL ceyee TIMEOUT,R1 3; Set event = timed out 
0 43 879 SBW 1ON_DISP ; Call action dispatcher for 
443 389 : this PB | 
53 55 86000 0969 He 10$: MOVL R5,R3 ; Step to next formative PB 
oc 11 843 +H BRB SCAN_FORMPB 3; Check next PB 
8443 B85 FORM_PB_DONE : 
BE D5 3433 BB TSTL (SP)+ ; Clear PB Listhd from stack 
pooones ee 01 O3F 4 Ht) CMPL rite aattin’ > 3; Passed pool chekcer's time? 
% 1A 09F9 2890 BGTRU CHECK_POCLER : Branch if n | 
55 0080 C4 DE O9FB 2891 MOVAL POTSL_ CWAITOBL (RA, RS 3; Get pool waiter Listhead addr 
FC AS 65 ~=«ODT Sage 44 CMPL (R5),=4(R5) 3; List empty? 
21 13° OA04 3 BEQL POOL * DONE ; Branch if s 
55 65 00 pay +43 MOVL (R5)7R5 : Else get addr of last waiter (if any) 
53 OOAC C4 00 OAD9 338 208: MOVL ein “eatin ; Get addr of next CDRP we are | 
AOE 9 3; _going to try to wake 
OAGE 898 SRESUME _F ; Resume next waiter 
AOE 899 “pPDTSL _WAITOFL(R4), - $ 
OA0 900 wt he =POOL_DONE : if none, go to POOL_DONE 
55 53 D1 OA ; 901 CMPL ; Was this waiter the last one when 
Dad O08 3; we started scanning the List? 
ACS 290 ; (More on the List now are 
OA ope 3: repeat failures.) 
—E2 12 - ; 444 BNEQ 20% : Branch if not 
A , $07 POOL _DONE : 
50 Q0000000'GF 3C OA27 2909 MOVZWL G*SCS$GW Awe? " ; Get pool check interval 
"GF 1 OA 91 ADDL3 RO,G*EXESGL ABSTIM ; Add pool interval to current 
ee 6188 22 . . 3 311 POT$L -POOLDOE(R4) * : tion and store as due time 
. 318 CHECK_POLLER: 
A 915 POPL R3 3; Retreive CRB addr 
orc 4 = A ; 318 CMPL POTSL pout eee (Re) meg Passed poller’s duetime? 
— 5 1A 0A44 318 BGTRU EMF SCALCTNTDUE : Branch if not 
F587 @§©=630 ny 335 BSBW CNFSPO 3; Call poller 
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CNFSCALCINTDUE, RESET WAKEUP DUE TIME 


Banger 


MOVZWL iy 
ADDL 3 


CNFSCALCINTDUE: : 


2. PPA AA AAAS 
sooc0cVT0VT7T70> 
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; Get poller interval 
Add poll interval to 
store as poller due 

; Compute current time it takes 
to do a complete poll ye 
over both paths <-- this 
to be recomputed periodically because 
the parameters are dynamic 


— time and 


Get basic timer interval 
Add it to current time and 


51 300099 0° 
5 17C¢ 


50 


5 


0 

50 

51 
0000000" 

0198 

52 


CNFSCALC 
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940 ~SBTTL CNFSCALC_POLLSW, CALCULATE TIME TO POLL 
941 -SBTTL = PORT AT LEAST ONCE 
sf 
944 : This routine computes the number of seconds it takes to poll 
945 ; every possible port at least once, even if only one path is 
338 3; working. This value is used by the VAXcluster sysap. 
948 : The formula is as follows: 
950 : {(maximum port # +1)/(# ports polled per interval)} * 2 paths * poll interval 
32) ; ‘maximum time to wake up poller 
338 : If the number of ports polled per interval exceeds the number of free 
954 ; datagrams available to conduct simultaneous start handshakes, then use 
955 ; the number of free datagrams instead of the number of ports per interval 
328 3 in the above formula. The number of free datagrams available is not known 
957 ; exactly since there is no accounting on the datagrams that can be tied 
958 ; Pg going start handshakes. The number available is estimated as 
4 4 : PDTSW_STDGDYN(R4). 
30) : Inputs: 
363 ; R4 -PDT address 
965 ; SCS$GB_PAMXPORT -SYSGEN'ed maximum port # 
966 ; SCS$GB_PANPOLL -# ports to poll per interval 
967 ; SCS$GW_PAPOLINT -# seconds between polls, poll interval 
968 ; SCS$GW_PASTIMOUT -# seconds it might take to wake up poller 
4 4 3 PDT$B_MAX_PORT(R4) -maximum port # Supported by this CI 
7 : Outputs: 
358 : RO,R1,R2 “Destroyed 
are 3 Other registers -Preserved 
976 : PDTSL_POLLSWEEP(R4) -# seconds to poll each port at least once 
978 ° 
44 4 -ENABL LSB 
$81 CNFSCALC_POLLSW:: 
j MOVZBL G“*SCS$GB_PAMXPORT,R1 ; Get SYSGENed max port # 
984 MOVZBL PDTS$B_MAX_PORT(R4S,RO ; Get hardware supported max port 
985 CMPL R1,R0 3: SYSGENed .GT. hardware max? 
9 § BLEQ 10$ ; Branch if not 
: MOVL RO,R1 : Else hardware value prevails 
9 5 10$: INCL R1 Convert port # to number of ports 
990 MOVZBL G*SCS$GB_PANPOLL ,RO Get # ports polled per interval 
991 MOVZWL PDT 
0 


cS 
$W_STOGDYN(R4S ,R2 
R 


Get # dos available for start 
an 


; start dshakes, max. 
CMPL RO,R2 : A orts per interval .leq. free dg 
3 mit? 
BLEQU 15% ; Branch if so 
VL R2,RO ; Else use free dg Limit instead 
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r 
- PORT AT LEAST ONCE - 4 01 DRIVER.SRCJPACONF IG.MAR; 
Ag 997 
4 QA9 998 15$ CLRL R ; Clear h.o. longwd of dividend 
50 51 51 AJA 299 EDIV RO,R1,R1,R0 ; Compute # ports/ # per interval polled 
» ASF 0 TSTL R ; If there was a remainder, 
AA 1 BEQL 20$ 3 
6 nv: § INCL R1 ; then round quotient up 
51 1 g0 AA 208: ADDL R1,R1 ; Multipy by 2 paths * 
50 ane oe C QAA 5 MOVZWL 6*S$CS$GW_PAPOLINT,RO ; the number of seconds between 
1 ge AAF $ MULL ; polls 
50 00000000‘ GF C 7 MOVZWL G6*SCSS$GW_PASTMOUT RO ; Get the timer before polier even 
; awakened, 
ocp8 ¢4 «651s 550——s«C1—s« AB 009 ADDL3 RO,R1,PDTSL_POLLSWEEP(R4S ; add in and save total in PDT 
05 OABF RSB ; Return 
ACO 3011 
OACO 3012 -DSABL LSB 
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SEP=19 1:16: 


START_TIMER: 


MOVZWL G*SCS$GW_PASTMOUT,RO 
ADDL3 RO,G*EXESGL ABSTIM, = 
PBS$L_DUETIME(R3) 


50. §=Q0000000°GF 3C OAC 


0 
0 
0 ; Get basic timer interval 
00000000'GF 50 C1 OAC 0 
3C A3 0 
0 
0 
0 
0 
0 


: Add it to the current time 
3 and save in PB due time 


ve 1 : -SBTTL START_TIMER, START A PATH BLOCK TIMER 
AC 1 3 START_TIMER computes the due time for PB timeout and sets the 
AC 17 ; timeout in porgress bit (PBSV_TIM in PB$W_STS) for the specified 
ow 8 3 pathblock. 
3 y ; Inputs: 
at ; : R3 “Addr of PB 
ve: : : Outputs: 
AC § : RO “Destroyed 
AC 3 Other registers -Preserved 
ACO 8099 
AC ? -ENABL LSB 
3 
0 E2 OAD $ BBSS PBSV_TIM,- ; Set timeout in progress 
00 44 a3 OAD 8 PBSW_STS(R3),10$ in pathblock witha 
05 OAD H 10$: RSB ; Return 
1 


-DSABL LSB 


reer ff, 


! 
| 
| 
| 
| 
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STOP_TIMER, STOP PATH BLOCK TIMER 
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-SBTTL STOP_TIMER, STOP PATH BLOCK TIMER 


:* STOP_TIMER disables path block pineout by clearing the timeout 

: in progress bit in the pathblock 

Inputs: 

; R3 “Addr of PB 

; Outputs: 

; ALL registers -Preserved 

STOP_TIMER: 

BBCC #PBSV_T ; Clear the timeout in progress bit 

PBSW_ sts¢h3), 10$ ; _in specified pathblock 


MRO OWONAOUE WN" OOONOUS 
‘ 


108: RSB 3; Return 
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-SBTTL SET CIRCUIT, PORT OPENS A PORT-PORT VIRTUAL CIRCUIT 


to the port. 


+ 
SET_CIRCUIT allocates a datagram buffer. If none are available, 
return with error status. Otherwise, send the SETCKT datagram 


: Inputs: 
: Re “Addr of START/STACK dg 
3 R “Addr of formative P 
3 R4 “Addr of PDT 
: Outputs: 
: RO -0/1 for fail/success 
3 Other registers -Preserved 
-ENABL LSB 
SET_CIRCUIT: 
PUSHL R2 3; Save dg addr 
BSBW INTSALLOC_PPDDG ; Allocate a dg buffer 
BLBC ; Branch if none 
MOVL  #<PPDSA_RSPa24>!- : 
<PPDSC_INVTC@16>,- : 
PPD$B_PORT(R2) 3; Set opcode and ask for response 
BSBW INTSINS_COMQH : Issue the invalidate command 
BSBwW INTSALLOC_DG1 ; Allocate a datagram buffer 
: _for the open circuit command 
BLBC 0,SET_ERR ; Branch if insufficient pool 
BISL3 #<PPDSA_RSPa24>!- : Open VC, reset sequence #'s 
<PPDSC“SETCKTAi6>,-  : Get SETCKT back for pool 
$B_RSTATION(R3),- HY 
PPD$B _PORT(R2 : 
MOVZWL <PPD CST!- : 
PPDSM RR! PPDS$M_NS>,- ; 
PPD$W_MASK(R2) : Set mask 
MOVZ2WL #PPDSA_CST,PPDSW_M_VAL(R2) 
BSBW INTSINS COMQH ; Send it on its way 
MOVZBL #SS$_NORMAL ,RO ; Set status to success 
108: POPL R2 ; Retreive dg addr 
RSB 3; Return 
SET_ERR: 
CLRL R 3; Set status to failure 
BRB 10$ : Take common exit 
-DSABL LSB 
- END 


ee 
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$$$ 2 4BC R 01 ELOGSERROR_DG eeneneee§ xX 01 
SSSCURSIZ s 1C ELOGSPACKET eeeeeree X01 | 
SSSLAST_EVENT > 488 R 91 ELOGSPTH §T_CHG aeeeeree X 01 | 
SSSLAST STATE = 493 R 1 LOGSUCOBE_ERR aeeeeree X 01 
EwsT = 1 ELOGSUCODE — WARN aeeeenee § X 1 
AC$B_ARG = END_ACTION 000518 R 1 | 
AC$B_CODE = 0 ENTER_DONE 0 OAD R 1 
ACSC CONTINUE = 0001 ENTER-ERR 6£0 R 1 | 
ACSC END = 6 ENTER-ERR1 00 681 R 1 
ACSW-ACTION = ENTER-ERRG 681 R 1 
C$W"NEW = 0000000 ENTER-ERR 00006BA R 1 
ACTION_DISP 4 : R 01 ENTER-ERR4 000 DC R 1 
ACTION TABLE RG 1 ENTER-PB 005C7 R 1 
ALL_STOPPED FR 1 ERRSBOGCHE CKNF aeneeene = X 01 
BREAK_HOST 00000 $f R 1 ERRSCRASHV aeeeenee X01 
BREAK PATH 00000775 R 1 ERRSCRASH_PORT aeneeeee X 01 
BUGS CIPORT teeeeeee X01 EVS$C_ACK = 0000000 | 
1L6_SB 900007 6R 01 EV$C-ELOG = 0000000 | 
UTION_RE 00009 : R 01 EV$C-HOSTSHUT = 9000006 | 
CHECK_CAUTION 00000993 R 01 EVSC-SCSMSG = 0000800 
CHECKPOLLER 00000A38 R 01 EVS$C~SEND_START = 00008002 
CHECK~PORT_REV 0000095E R 01 EVSC~STACR = 00000001 
CHK_INCARN-ERR 9000 $5 R 01 EVS$C“START = 00000000 
CLEAN2 QO007F7 ROT EVSC~ TIMEOUT = 00008001 | 
CLEANUP O0000TDE R 01 EV$W~CODE = 90000009 
CMP_EXIST_ SBS 000005F7 R 01 EVSW"NEXT = 00000002 
CNFSCALCINTDUE QOOODASD RG 01 EXESALONONPAGED eeeneeee =X 01 
CNFSCALC_POLLS QOOODAGE RG 01 EXE$GB_CPUDATA aeeeeene§ X 01 
CNFSDGREC anata RG 01 EXESGL_ABSTIM eeneeeee =X 01 
CNFSIDREC 00000FB RG 01 EXESGL-LOCKRTRY eeeeeeee =X 01 
CNFSLBREC 600008 A RG oi EXESGL~TENUSEC aeneeeee X01 
CNFSLKP_PB_MS 0000822 RG 1 EXESGL-UBDELAY eeeeenee X01 
CNFSLKP~PB_MSG2 00 08 RG 01 EXESGO-SYSTIME aeeeeeee = X 01 
CNFSLKP~PB_PDT 0000862 RG 01 FMT START DATA 0000078F R 01 
c 00000000 RG =O FORA PB_DONE OOOO09EE R 01 
EMOVE_ 000008A5 RG 01 FOUND_P 69000¢ R 01 
CNFSSCSMSG REC 00000221 RG =s«éO1 FOUND “VC OOOOZFF R 01 
STOP_vCS 90000 CF RG 01 GOT PATH 000018 R 01 
TIMER. 00009A2 RG 01 IGNORE_DG 000078C R 01 
COMSDRVDEALMEM eereeeee =X 01 INISPORT_REV aeeeeeee =X 01 
ND_1 9000563 R 01 INIST_HWTYPE aeneeree =X o1 | 
CONF IG_ERR 0 93¢ R oi INTSACLOC_DG1 aeeeeeee X01 
CONF IG-EXIT 000 F6 R 1 INTS$ALLOC~ seeeeees =X 01 
CONF IG-LIST 00 ob R oi INTSALLOC- PPDDG aeeeeeee =X 0, 
CONT POLL R 1 INTSDEAL_6G1 aeeeeere§ X01 | 
CRBSC_AUXSTRUC = 0000001 INTSDEAL_MSG aeneenee =X 1 
CRBSL~DUETIME = 00 1 INTSINS_COMQH aeeeeeee X01 | 
DATA_CEN = et INTSINS. COMQL aeeeeeee§ X01 | 
sT : 4 INTSINS~DFREEQ? trie ae Wt * | 
DELETE SB 6C R ot INTSINS MF REEQ aeeeeeee Xx 01 
REFRES 4E R 1 INTSMFQ2POOL aeeeeeee§ xX 01 | 
DYASC_CIDG = 38 INTSSNDDG1 15555550 1 
DYNSC~SCS = 0 IPL$_SCS = 99000 | 
DYNSC~SCS_ = 6 4 LB_CRECK 6 g DR 01 | 
DYNSC~SCS~SB 2 7 LB- ENABLE 0 1R 1 
ELOGSTABLES tereeeee x ot LEGAL_REV_TABLE 09 946 R ot 
ELOGSCBL_X_CHG eeeeeees =X 1 LOCK_ONAVAL 37D R 1 


| 
} 
| 
| 
| 
| 
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LOOKUP_EVENT OQ0004E0 R 1 PBSV_CUR_CBL = 000000 
MAX_RAM_REV 0 $ 95A R 1 PBSV_TIM = 00000 
MAX-ROM_REV 000095C R 1 PBSW_RETRY = 00 3 
MOVE _PB 000067F R 1 PBSW_SIZE = 000 
SB 8 674 R 1 PBSW_STATE = B88 4 
PATH 108 R 01 PBSW_STS z 9 44 
NEW-PATH_ERR 0 oie p 01 PBSW-VCFAIL_RSN = 38 46 
NEXT_ACTION O004F2 R 01 PB_EXISTS QOO02AA R 01 
NEXT_EVENT seein R 01 = FOUND 00000854 R 01 
NEXT_REQID 000 BB R 01 PB_NOT_FOUND a ea R 01 
NEXT-SB 000089D R 01 P&-STATE_ERR 0000 é R 01 
NEXT" STATE O00 R 4 PDT$B_DQTMAP 90001 4 
NOT_ FOUND Q0008A2 R 1 PDTSB_HSHUT_DG 180 
PAERSK_ES_LOBG = 3000008 PDTSB_MAX_PORT 0000017C 
PAERSK_ES_LOGB = 00000006 PDT$B_NXT_PORT 0000017E | 
AERSK_ES_L1BG = 00000009 PDT$B_PO_CBSTS Sa oe | 
PAERSK_ES_L1GB = 00000007 T$B-P1_LBSTS 900018! 
PAERSK_ES_LSTO = 00000003 PDT$B_PLOGMAP 00000134 
PAERSK_ES_LST1 = 00000009 PDT$B_PORTMAP 00000114 | 
PAERSKAES_LST? = 00000007 DT$B_PORT_NUM 0000017D 
PAERSK_ES_LST = 00000009 PDTS$B_REQIDPS 0000017F 
PAERSK_ES_LST4 = 0000000C PDTSC_HSHUT SIZ = 00000014 
PAERSK_ES_RSCKS 2 90000008 PDTSC_LENGTA = 000000E4 
PAERSK_ET_DALT = 0000000 PDT$C_PAREGBASE 000000E4 
PAERSK-ET-LMLT = eet PDT$C_PAREGEND 00000110 
PB$38_CBL_STS = 0000002 PDT$C_PQB = 000001E0 
PB$B_PO_STS s 90000029 PDTSL_CN 000000E4 
PB$B_P1-STS = 0000002A PDT$L_CQ0 000000F 0 
PB$B_ PROTOCOL = 00000048 PDT$L_CQ1 000000F4 
“RSTA = 00000021 PDT$L_DFQ 000000F C 
PBSB_RSTATION = 0000000¢ PDTSL_DFQHOR 00000208 
PBS$B_RST_PORT = 00000020 PDT$L_DGHDRSZ 00000190 
PBS$B_SUBT = 00000008 PDTS$L_DGNE THD 00000194 
PB$B_TYPE = 0000000A PDT$L_DQELOGOUT 000002E0 
PBSC_ CLOSED = 00000000 PDTS$L_GPTBASE o00g0eer 
PBSC_LENGTH = 00000054 PDTSL_GPTLEN 00000230 
OPEN = 00000003 POT$L_LBDG 00000184 
PBS$C_PALENGTH 00000060 DTSL_MFQ 00000100 | 
PBSC_PWR_FAIL = 00004000 PDTSL_MFQHDR 9000020¢ 
PBSC_ST_REC = 00000002 PDTS$L_MQELOGOUT 00000320 
PBSC_ST_SENT = 00000001 PDTSL_MSGHDRSZ = 00000084 
PBSC_VC_FAIL = 00008000 POTSL_MTC 00000104 
PBSL_CDTLST = 00000034 PDTSL_PFAR 00000108 
SL-CLSCKT_DG BOO oe PDTSL_PM et tg 
PBS$L_DUET IME = 0000003c PDT$L_POLLERDUE 000018C 
~FLINK = 0000000 PDTS$L_POLLSWEEP = 00000008 
_PDT = 444 C PDT$L_POOLDUE 00000188 { 
PBSL_RPORT_FCN s 9 0001C TSL-PPR 0000010C 
“RPORT_REV = 0018 PDTSL_PS ess 
PBSL-RPORT-TYP = 0014 PDTS$L_PSR 000000F 
“SBLINR s 000 23 PDTS$L_SPTBASE 0000 3h 
PBSL_SCSMSG = 0000004 PDTSL_SPTLEN 0000228 
PBSL~WAI TOBL z 98 HF PDT$L_UC 0 99 dC 
PBSL-WAITQFL = PDT$L_VBDT 9 \¢ 
PBSM_CUR_CBL z 00 1 PDT$L_VPQ 0 1 
PBSM_CUR-PS = 1 PDTSL_WAITQBL = 5 BO 
PBST-LPORT_NAME = 00000024 PDTSL-WAITQFL = 000000AC 
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PDTSM_CUR_LBS = 99 1 PPDS$C_STACK = 6000001 
PDTSM_LBDG = 4 PPDSC_STACK_LEN = 38 3 
PDTSM_PRV_LBS = 00 PPDSC_START = 44 $ 
PDT$Q_ 00001F PPDSC_START_LEN = 000 E 
PDT$Q_COMQ $ $ 1F PPD$K-LB_LERGTH 000 48 
PDT$Q_COMQBASE OOO1E PPDSK_LENGTH 0 3 1 
PDT$Q_COMQH 990 1E PPD$L_BLINK 0000004 
PDT$Q_COMQL QOOO1E PPD$L_DG_DISC sh 
PDT$Q_DFREEQ 90000100 PPDSL_FLINK 4444 4 
PDT$Q_FORMPB Bo008) 4 PPD$L_IN_ VCD 000001 
PDTSQ_MFREEQ 0000108 PPDSL_LBCRC 44 oF 
PDT$SQ_RSPQ tg hg PDSL_PO_ACK 4d 
PDT$SQ_TEMP_RSPQ 000019C PPD$L_PO_NA 000014 
PDT$v_CUR_CBS = 0000000 PPD$L_PO_NRSP 00000018 
PDTS$V_LBDG = 00000 3 PPDS$L_P1_ 0000001¢ 
PDT$W_BDTLEN 00000 PPDSL_P1_NAK 00000020 
PDT$SW_DQEL 00000 8 PPD$L_P1_NRSP 00000024 
PDTS$W_LPORT STS 0000011 PPDS$L_REC_BOFF 00000028 
PDTSW_MQEL 00000214 PPDSL_REC_NAME 00000024 
PDTSW_PBC 00000112 PPDSL_RPORT_FCN 00000020 
PDTSW_STOGDYN 00000198 PPDSL_RPORT_REV 0000001C¢ 
PDT$W-STDGUSED 0000019A PPDSL_RPORT_TYP 00000018 
5 00000A27 R 01 PPD$L_SND_BOF 00000020 
PPD$SB_DEF _ST 0000001C PPD$L_SND_NAME 0000001C 
PPD$B_FLAGS 0000000F PPD$L_ST_ADD 00000018 
PPD$B_HWVERS 00000034 PPDSL_XCT_LEN 00000018 
PPD$B_LBDATA 00000012 DSM_CS = 00008000 
PPD$B_LCB_ 00000012 PPD$M_DQI = 00001000 
PPD$B_LCB_LPORT 00000010 PPDSM_NR = 00004000 
PPD$B_LCB_NPORT 0000000F PPDSM_ = 00002000 
PPD$B_LCB_ 00000011 PPDSM_RSP = 00000001 
PPD$B_LCB_PORT 0000000E PPD$Q_CURTIME 00000048 
PD$B_OPC 0000000E PPD$Q_NODENAME 00000040 
PPD$B_PORT 0000000C PPD$Q_SWINCARN 00000028 
PPD$B_PROTOCOL QOOO001A PPD$Q_XCT_ID 00000010 
PPD$B_RSTATE 444 4 PPD$S_PS = 00000002 
PPD$B_RST_PORT 0000024 PPD$S_RP = 00000002 
PPDS$B_STATU 0000000D PPD$S_SP = 00000002 
PPDSB_ SWF 00000008 PPDSS_STATE = 00000002 
PPD$B_SYSTEMID 00000014 PPD$T_HWTYPE 00000030 
PPD$B_TYP i444 4 PPDST_SWTYPE 00000020 
PPD$C_AC = 0000008 PPDS$T_SWVERS eae Ss 
PPD$C_ACK_LEN = 0000000 PPD$V_PS = 00000001 
PPDSC_EN = St 4 PPD$V_RP = aes eed 
PPD$C_HOSTSHUT s 0 PPD$V_SP = 00000004 
PPD$C_HSHUT_LEN = ity PPD$V_STAT = 00000001 
PD$C_INVTC = 0000001 PPD$W_LCB_LEN7 0000000C 
0000004 PPDS$W_LENG 30800018 
449 PPDSW_MASK 0000001 
000001 PPDSW_MAXD 0000001C 
$ 0008 PPD$W_MAXMSG pan 15 
z 30 1 PPDSW_MTYPE 4449 
= 1 PPDSW_M_VAL 00014 
s 3 é PPDSW stze 090017 
= 00 19 REC™ERROR_DG 0000077E R 01 
= 00000001 REFRESH_SB 00000657 a 01 
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REV_OK 
REV-TABLE_ SIZ 
SBSE_HWVERS 
SBSB_SYSTEMID 


SBSL_PBF 
SB$0~SWINCARN 
SBST_HWTYPE 
SB$T~NODENAM 


5CS$GB~PANPOLL 
SCS$GB-SYSTEMID 
5(5$GQ~ CONF 


S 
SEND_1ST_START 
SEND_ACK 


SEND~ERR 


SEND" SUCCESS 
SET_CIRCUIT 
SET_ERR 


S eee 
SS$_NORMAL 
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! Psect synopsis ! 


tee crm on meow nwa nce } 


PSECT name Allocation PSECT No. Attributes 

» aes ‘ 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL none NOEXE NORD NOWRT NOVEC BYTE 

$$$115_DRIVER 00000819 (¢ 5 1¢( 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 

SABSS 00000360 <¢ 64.) 02 ¢( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
to cans See ee eee sone we ene e + 
: Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 22 00:00:00.02 00: 00:03.76 

Command processing 135 00:00:00.46 00:00:04 .40 

Pass 1 547 00:00:16.16 00:00:58.07 

Symbol table sort 0 B99 701 + BE B88 798 «29 

Pass 501 00:00:05. 00:00:1 06 

Symbol table output 4 00:00:00.26 00:00:00.4 

Psect synopsis output 00:00:00.01 00:00:00.02 

Cross-reference output Shs Ss Bo: By 200-29 

Assembler run totals 1226 00:00:23.98 00:01:31.66 


The working set_Limit was 1950 pages. 

140447 bytes (275 pages) of virtual memory were used to buffer the intermediate co 

There were 100 pages of symbol table space allocated to hold 1711 non-local and §0° losad symbols. 
3120 source Lines were read in Pass 1, "aoe" object records in Pass 2 

40 pages of virtual memory were used to define 37 macros. 


eta w ore e see see ese enema ecen a} 


Macro Library name Macros defined 
-$255$0UA28: CDRIVER.OBJJPALIB.MLB; 1 § 
- 55$0UA28: (SYS.OBJJLIB.MLB; 1 1 

$535$DUA 8: SYS. IBISTARLET ALB: 2 9 

TOTALS (all Libraries) 29 


1956 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:PACONF 1G/0BJ=OBJ$:PACONF IG MSRC$:PACONF 1G/UPDATE=(ENHS$:PACONF IG) +EXECML$/LIB+LIB$:PALIB.MLB/LIB 
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